怎么实现与数据库绑定，刚学vb，请帮忙

Question

直接用ADO吧
Dim cn1 As ADODB.Connection
Dim rc1 As ADODB.Recordset
Dim strcn As String
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB98\新食物成份表.mdb;Persist Security Info=False"
Set cn1 = New ADODB.Connection
Set rc1 = New ADODB.Recordset
cn1.Open strcn
rc1.CursorType = adOpenKeyset
rc1.LockType = adLockOptimistic
rc1.Open "新食物成份表", cn1, , , adCmdTable
rc1.AddNew
... ...
rc1.Update
rc1.Close
cn1.Close

Answer 1

data1的属性中还有个指定哪个table的，要先设定一下，mdb，还要转换一下，

Answer 2

同意楼上
不过我现在都是用ADO或者是直接调用系统的存储过程

Answer 3

你可能没有引用ADO吧，先从部件里添加ADODC控件(无须设它的属性)
界面上放置用户输入控件，不要绑定数据库，然后在Command1_Click里添加代码，Dim cn1 As ADODB.Connection
Dim rc1 As ADODB.Recordset
Dim strcn As String
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB98\新食物成份表.mdb;Persist Security Info=False"
Set cn1 = New ADODB.Connection
Set rc1 = New ADODB.Recordset
cn1.Open strcn
rc1.CursorType = adOpenKeyset
rc1.LockType = adLockOptimistic
rc1.Open "新食物成份表", cn1, , , adCmdTable
rc1.AddNew
rc1！字段1=TEXT1.TEXT
... ...
rc1.Update
rc1.Close
cn1.Close