Question

编一个vb程序，要求能对数据库的资料进行增删改查

先在数据库中创建数据，将数据导入到vb中，该有那些控件？代码该怎么写？

Answer 1

用Adodc控件来作 添加该控件的步骤: project(工程)->component(部件)->Microsoft ADO Data Control 6.0(OLEDB)
代码:
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Text1.Text = ""
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command3_Click()
datareport1.Show
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End Sub

Private Sub Command5_Click()
Text5.Text = Val(Text3.Text) - Val(Text4.Text)
Text6.Text = Val(Text5.Text) * 0.5
End Sub

Private Sub Command7_Click()
Adodc1.Recordset.Edit
End Sub

Answer 2

adodb 控件
Set Cn = New ADODB.Connection
Cn.ConnectionString = "路径名"
If Cn.State = adStateClosed Then Cn.Open