急！vb的数据库编程知识

Question

方法一：做一个数据环境设计器，设置好连接属性，然后在下面加一个CMD，就加入你这个表，然后这个CMD下列出这个表的字段，最后把每个字段拖到你的窗口中就自动形成数据库绑定了
方法二：做一个数据集，直接对数据集进行操作
dim rs as adodb.recordset
rs.open "select * ......"
textname=rs(0),texttel=rs(1)......
上一条：rs.moveprevious
下一条：rs.movenext
添加:rs.addnew
rs(0)=textname,rs(1)=......
rs.update
删除:rs.delete

Answer 1

dim rs as new adodb.recordset
dim con as new adodb.connectioncon.open "你数据库的connectionString"   '建立数据库连接
rs.open "select * from 表",con          '打开记录集上一记录，下一记录可以通过rs.movenext,rs.moveprevious来做
添加和删除直接用con.excute " insert into 表 *****"      '直接用SQL语句实现

Answer 2

用ADO没必要使用如楼主所说的DATA控件。
直接用记录集即可。

Answer 3

各位是否可以将source code直接email到[email protected],多谢！

Answer 4

下面是我的代码，希望大家批评指正，由于很长时间不用vb了，都生疏了，呵呵
查询的还没有写好，希望大家多给点意见Option Explicit' IMPORTANT: ensure that the DB_PATH constant is pointing to the
' addresslist.mdb database on your system
Const DB_PATH = "C:\addresslist.mdb"Dim rsAddrlist As New ADODB.Recordset
Dim cmd As New ADODB.Command
Private Sub cmdNext_Click()
If Adodc1.Recordset.EOF Then
    Adodc1.Recordset.MoveLast
    Adodc1.Refresh
Else
    Adodc1.Recordset.MoveNext
End If
End SubPrivate Sub cmdPre_Click()
If Adodc1.Recordset.BOF Then
    Adodc1.Recordset.MoveFirst
Else
    Adodc1.Recordset.MovePrevious
End If
End SubPrivate Sub cmdQuery_Click()
    'cmd.ActiveConnection = Adodc1.Recordset.ActiveConnection
    rsAddrlist.Open "AddrlistTable", Adodc1.Recordset.ActiveConnection, adOpenDynamic, adLockOptimistic
    cmd.CommandText = "Select * From AddrlistTable "
    Set rsAddrlist = cmd.Execute()
    
End SubPrivate Sub Form_Load()    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Data Source=" & DB_PATH
    Adodc1.Refresh
    
    'rsAddrlist.Open "AddrlistTable", Adodc1.Recordset.ActiveConnection, adOpenDynamic, adLockOptimistic
    
    ' Start a transaction
    Adodc1.Recordset.ActiveConnection.BeginTrans
    
End SubPrivate Sub cmdAddNew_Click()
    Adodc1.Recordset.AddNew
End SubPrivate Sub cmdDelete_Click()
    Adodc1.Recordset.Delete
End SubPrivate Sub Form_Unload(Cancel As Integer)
    If MsgBox("Do you confirm changes to records?", vbYesNo + vbExclamation) = vbYes Then
        Adodc1.Recordset.ActiveConnection.CommitTrans
    Else
        Adodc1.Recordset.ActiveConnection.RollbackTrans
        Adodc1.Refresh
    End If
End Sub

Answer 5

各位大虾，请注意一定要用DATA控件。这是题目的要求，改不得。我也做错了，哎

Answer 6

那我就帮不了你了，我用的是ado，不过很好改成data

Answer 7

没用过Data，不过见过别人用，这些控件类型都是一样的，应该可以融会贯通吧，没办法，加油吧

Answer 8

特别感谢大家的热情帮助，现在这个问题已经解决了，顺便我把代码也贴出来，由于是帮人家做的，时间太紧，写的比较毛糙。如果有需要全部代码的（包括窗体设计），请发MAIL到[email protected]