有关VB中ADO 的AddNew的问题

在数据表中添加数据,用的代码如下,(相关的连接已完成)
Private Sub Command1_Click()
Set DataGrid1.DataSource = Adodc1
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("商品") = Text1.Text
Adodc1.Recordset.Update

End Sub
但是当我把其中的Set DataGrid1.DataSource = Adodc1这一句去掉之后
就会出错说“对象变量或With块变量未设置“
请帮忙看一下,这是怎么回事,

两个原因,一是你的表是不是只有一个字段,提交的时候其他字段为空了!二是没有用adodc1.refrsh
温馨提示:内容为网友见解,仅供参考
第1个回答  2006-12-11
你把Set DataGrid1.DataSource = Adodc1去掉
在哪里出错的?

有关VB中ADO 的AddNew的问题
两个原因,一是你的表是不是只有一个字段,提交的时候其他字段为空了!二是没有用adodc1.refrsh

vb addnew的问题
1)AddNew 方法 (ADO),为可更新的 Recordset 对象创建新记录。语法:recordset.AddNew FieldList, Values 参数:FieldList 可选。新记录中字段的单个、一组字段名称或序列位置。Values 可选。新记录中字段的单个或一组值。如果 Fields 是数组,那么 Values 也必须是有相同成员数的数组,否则将发...

ADO中多次使用addnew出错?
具体说,把你的循环代码改成如下:m_pRecset->MoveLast();m_pRecset->AddNew();m_pRecset->PutCollect("Pihao",(long)(vCount.lVal + 1));m_pRecset->PutCollect("RoadNum",vroadNum);m_pRecset->PutCollect("res_Start",_variant_t(sub));m_pRecset->PutCollect("userName",_variant_t...

ADO中的Addnew()方法的使用问题?
先利用Move(好像是MoveNext)移到你要处理和地方,再调用该函数即可

VB里面的ADDNEW怎么用啊?
VB的AddNew是指AddNew 方法 (ADO),是为可更新的 Recordset 对象创建新记录。AddNew 方法 (ADO),为可更新的 Recordset 对象创建新记录。Recordset 对象 (ADO)Recordset 对象表示的是来自基本表或命令执行结果的记录全集。任何时候,Recordset 对象所指的当前记录均为集合内的单个记录。AddNew 方法范例 该...

#操作ADO进行Recordset.AddNew操作参数问题?
data.AddNew(nName, nValue);在上面的代码中,我们把字段索引数组替换成 了字段名称数组,并且向 nValue 数组中传入了"100"这个字符串而不是整型数字。还有,在使用 AddNew 方法时,请确保字段名称数组和字段值数组的长度相同。如果还是无法解决问题,请确认您是否已经引用了 Microsoft ActiveX Data ...

在VB中,如何操作,能使ADO修改数据时也能添加新记录
rs.addnew方法

vb中用addnew方法,对Access数据库增加记录,但是增加记录是会把第一条...
Data1.Recordset.AddNew Data1.Recordset("密码") = Val(Text1.Text)Data1.Recordset.Update 值得一提的是,首先应该把确定按钮设置为不可用,然后text1代码填写为:private sub text1_change()'当文本发生变化时 command1.enabled=true‘将确定按钮设置为可用 end sub 这样的设置就不会出现错误提示,...

VB如何用ADO向ACCESS数据库插入和修改记录?
1、Microsoft Access窗口中,选择文件菜单中的打开选项,打开一个已有的数据库。2、数据库中有两张表格,如下图所示。3、数据库中,表格学生信息是课程成绩的子表。4、如果直接在子表中插入记录,会提示不能添加或修改。5、其实,只需在主表中,插入相关的主键和记录。6、接着,就可以在子表中插入...

vb上传文件的实现...
保存在string型变量filePath中。上传的关键语句如下: dim adofld As ADODB.Field, DataArr() As Byte, filelen As Long, file_num As Long office_rst.AddNew Set adofld = office_rst("office") adorst("filename").Value = filePath file_num = FreeFile '返回一个 Integer,代表下一个...

相似回答
大家正在搜