vb和Adodc连接数据库,rs.addnew 出错

Adodc 控件属性 把readwrite属性勾选上

你的问题是你用错了控件，我这个是ADO连接数据库。你用的是ADODC加DATAGRID连接的。所以出错。你自己看我声明数据库的时候是ADODB Call OpenConn '用CALL 调用OPENCONN函数 sql = "select hfid from hfb ORDER BY hfid" '打开hfb表,hfid是自动编号的数据 ,里面的hfb和hfid都是我自己随便写的名字...

Public rs As ADODB.Recordset Public cc As String Sub aa()Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cc = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=library" ‘这里要改成连接的数据库。cn.Open cc End Sub 以上是模块代...

adodc1.ConnectionString="数据库连接"adodc2.RecordSource="select * from 表名 where PLC='" & text1.text & "'"adodc2..Refresh if adodc2.recordcount > 0 then msgbox"已经存在"exit sub end if adodc1.RecordSource="SQL语句"adodc1.Refresh Adodc1.Recordset.AddNew adodc1.recordset.Fields...

要先与数据库建立连接,才能执行sql语句,要是SQL语句不能对数据库中的数据直接修改或添加,是没有办法对数据库进行更新,必须是正确的sql语句才行,你sql都有错误还想更新数据库.Adodc2.RecordSource = "select * from 表 where 用户名 like '" & Text1.Text & "'"Adodc2.Refresh If Not Adodc2....

0;data source=c:\aaa.mdb"Set rs1 = New ADODB.Recordset rs1.Open "select * from 招生地区表", myConn, 1, 3 rs1.AddNew For i = 0 To 3 rs1.Fields(i) = Text1(i).Text Next i rs1.Update rs1.Close Form2.Adodc1.Refresh Form2.Enabled = True Unload Me End Sub ...

很简单啊，你可以在Text1控件的keydown事件或者LostFoucs事件里查询数据库来判断用户名是否存在啊，建议 数据库操作一般不要在keydown事件里做，一来太浪费资源 二来也没有实际应用的含义 ，像楼主这种情况 ，就在Text1 的LostFoucs事件里 做就好了。Private Sub Text1_LostFoucs()Dim Rs as new ...

Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from A2" '当前文件夹中library库A2表中数据Adodc1.Refresh Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mybook.mdb;Persist Security Info =false"Adodc2.CommandType = adCmdTe...

出现这个问题时要查看是不是给对象或变量初始化如：dim rs as adodb.recordset 直接用rs=**的话会报上面的错，应该改为set rs=**，要不就定义时用 dim rs as new adodb.recordset rs=**就不会报了。你这个是应该要 set Adodc1.Recordset=**，然后再 addnew ...

DataGrid1.DataSource = rs 'On Error Resume Next rs.AddNew rs.Fields("ID") = wjxm rs.Fields("品牌") = zumc rs.Fields("描述") = timex rs.Fields("编号") = rs.RecordCount + 1 rs.Update rs.Close conn.Close Adodc1.Refresh DataGrid1.Refresh...