首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

,adodc的addnew有关问题

2012-01-11 
高手请进,adodc的addnew问题!部分代码如下:WithAdodc6.ConnectionStringdsnjczx .RecordSourceSelec

高手请进,adodc的addnew问题!
部分代码如下:
  With   Adodc6
                      .ConnectionString   =   "dsn=jczx "
                      .RecordSource   =   "Select   *   from   djqsr "
                      .Refresh
  End   With
    With   Adodc6.Recordset
              .MoveFirst
              .AddNew
              .Fields( "铅品号 ")   =   DataCombo1.Text
              .Fields( "批号 ")   =   DataCombo2.Text
              .Fields( "生产单位 ")   =   DataCombo3.Text
              .Fields( "标准编号 ")   =   DataCombo4.Text
              .Fields( "生产日期 ")   =   DTPicker1.Value
              .Fields( "化验日期 ")   =   DTPicker2.Value
              .Fields( "化验员 ")   =   DataCombo7.Text
              .Fields( "银(Ag) ")   =   Val(Text1.Text)
              .Fields( "铜(Cu) ")   =   Val(Text2.Text)
              .Fields( "锑(Sb) ")   =   Val(Text3.Text)
              .Fields( "锡(Sn) ")   =   Val(Text4.Text)
              .Fields( "砷(As) ")   =   Val(Text5.Text)
              .Fields( "铋(Bi) ")   =   Val(Text6.Text)
              .Fields( "铁(Fe) ")   =   Val(Text7.Text)
              .Fields( "锌(Zn) ")   =   Val(Text8.Text)
              .Fields( "总     和 ")   =   Val(Text9.Text)
              .Fields( "铅(Pb) ")   =   Val(Text10.Text)
              .Update
              .MoveFirst
      End   With
错误提示:[SQL   SERVER]第一行: '( '附近有语法错误
请大侠们赐教

[解决办法]
Fields( "银(Ag) ") = Val(Text1.Text)
这个字段的括号好像不对,跟其他的不一样。该成中文括号看看。
[解决办法]
或者改成这样:
Adodc6.Recordset!铅品号 = DataCombo1.Text

热点排行