ado问题续
Private Sub Command1_Click()Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End Sub
Private Sub Form_Load()
Adodc1.Visible = False
Adodc1.LockType = adLockOptimistic
Command1.Caption = "添加"
Command2.Caption = "删除"
Set Text1.DataSource = Adodc1
Set Text2.DataSource = Adodc1
Text1.DataField = "试验1"
Text2.DataField = "实验2"
Text1.Text = ""
Text2.Text = ""
End Sub
有两个问题：
第一，如果是一张空表，如何使text1和text2同时向表中添加内容，现在只能添加一个，当焦点转向另一个textbox时刚才的就变为空了
第二，如何是添加的内容在表的最后一行，现在执行添加都是覆盖第一行（此时假设表不为空） --------------------编程问答-------------------- 这种邦定的办法 很麻烦，建议使用记录级
举个例子：
定义conn,rs
拖一个listview,2个text,3个command，到窗体中。
form_load时先打开连接，然后把数据显示到listview上。
单击listview的某一行，将该行的数据送入text中。
点修改时执行UPDATE。。。
点添加时执行INSERT。。。当然要先进行数据校验。
点删除时执行DELETE。。。
--------------------编程问答--------------------
不错!
补充：VB , 数据库(包含打印，安装，报表)
