vbcode.txt

很好很强大

Private Sub cmbOK_Click()
   Dim conn As New ADODB.Connection   '声明连接数据库的对象
   conn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=.;Initial Catalog=text;UserID=sa;Password=sa;"
   conn.Open '打开连接
   conn.Execute "Insert into student(SNO,Name,Age) values('" & TextID.Text & " ','" & TextName.Text & "'," & TextAge.Text & ")" '执行sql语句
   conn.Close
   Set conn = Nothing
   MsgBox "添加数据成功"
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub


Private Sub cmdModify_Click()
   '声明连接数据库的对象
   Dim conn As New ADODB.Connection
   conn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=.;Initial Catalog=text;User ID=sa;Password=sa;"
   '打开连接
   conn.Open
   '执行sql语句
   'conn.Execute "update student set sno='122',name='李四',age=15 where id=2"
   conn.Execute "update student set name='" & TextName.Text & "',age=" & TextAge.Text & " where sno='" & TextID.Text & "'"
   conn.Close
   Set conn = Nothing
   MsgBox "修改数据成功"
End Sub

Private Sub cmdSearch_Click()
    '声明连接数据库的对象
   Dim conn As New ADODB.Connection
   Dim Rs As New ADODB.Recordset
   conn.Open "Provider=SQLOLEDB.1;Data Source=.;Initial Catalog=text;User ID=sa;Password=sa;"
   Rs.CursorLocation = adUseClient
   Rs.Open "select * from student", conn, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs
End Sub

Private Sub Command1_Click()
    '声明连接数据库的对象
   Dim conn As New ADODB.Connection
   conn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=.;Initial Catalog=Test;User ID=sa;Password=sa;"
   '打开连接
   conn.Open
   conn.Execute "delete from student " & " where sno='" & TextID.Text & "'"
   conn.Close
   Set conn = Nothing
   MsgBox "删除数据成功"
End Sub