外贸客户跟进表:vb(sql)数据库,与datagrid的连接

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 03:59:10
Private Sub cmd_add_Click()
On Error GoTo errh
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=data;"
Data.Source = First
Adodc1.RecordSource = "select * from data_zongzhi"
Adodc1.Refresh

With Form1
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Text1.Text
Adodc1.Recordset.Fields(1) = Text2.Text
Adodc1.Recordset.Fields(2) = Text3.Text
Adodc1.Recordset.Fields(3) = Text4.Text
Adodc1.Recordset.Fields(4) = Text5.Text
Adodc1.Recordset.Fields(5) = Text6.Text
Adodc1.Recordset.Fields(6) = Text7.Text
Adodc1.Recordset.Fields(7) = Text8.Text
Adodc1.Recordset.Fields(8) = Text9.Text

Adodc1.Recordset.Update

End With

End Sub

程序测试提示未找到方法或数据成员为什么啊,急!!

Adodc1没打开数据库
Adodc1.RecordSource = "select * from data_zongzhi"
Adodc1.open

With Form1
end with
没用