刘金玉的零基础VB教程079期：数据库增删改查

Dim conn As New ADODB.Connection '声明并创建连接对象
Dim rs As ADODB.Recordset '声明连接对象类型
Dim sql$
Private Sub Command1_Click()
If conn.State = 0 Then
    conn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False" '连接数据库的驱动字符串
    conn.Open  '打开数据库
End If
'sql插入语句
sql = "insert into [users]([username],[password],[sex]) values('" & Text1.Text & "',' " & Text2.Text & " ','" & Combo1.Text & "')"

'创建数据集对象的连接
Set rs = New ADODB.Recordset

rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic



End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

Dim conn As New ADODB.Connection '声明并创建连接对象
Dim rs As ADODB.Recordset '声明连接对象类型
Dim sql$
Private Sub Form_Load()
Show
If conn.State = 0 Then
    conn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False" '连接数据库的驱动字符串
    conn.Open  '打开数据库
End If
'sql插入语句
sql = "select * from [users]"

'创建数据集对象的连接
Set rs = New ADODB.Recordset

rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic

Dim i%

Do While Not rs.EOF
    '输出一行记录
    i = 0
    Do While i <= 2
        '将每一列记录输出
        Print rs(i).Name & ":" & rs(i).Value & "  ";
        i = i + 1
    Loop
    
    Print
    '将指针往下移动一行
    rs.MoveNext
    
Loop

End Sub