VB中简单的增加、删除、修改、查询操作
'----------------Start-----------------------新增一条记录------------------------------
public Function InsertData()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCnn As String
strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User
conn.Open strCnn
strSQL = "select * from Stu"
rs.Open strSQL, conn, 3, 3
rs.AddNew
rs("name") = txtName.Text '姓名
rs("age") = txtAge '年龄
rs("num") = txtCardNum.Text '学号
rs.Update
rs.Close
conn.Close
MsgBox ("添加记录成功！")
End Function
'----------------End-----------------------新增一条记录------------------------------
'----------------Start-----------------------修改一条记录-----------------------------
public Function UpdateData()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCnn As String
Dim SqlSelect As String
strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User
conn.Open strCnn
SqlSelect = "SELECT * From Stu where num='" + txtCardNum.Text + "'"
rs.Open SqlSelect, strCnn, adOpenDynamic, adLockOptimistic, adCmdText
rs.UpdateBatch
rs("name") = txtName.Text
rs("age") = txtAge.Text
rs.Update
rs.Close
conn.Close
End Function
'----------------End-----------------------修改一条记录-----------------------------
'----------------Start-----------------------删除一条记录-----------------------------
public Function DeleteData()
Dim conn As New ADODB.Connection
Dim strCnn As String
Dim SqlSelect As String
strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User
conn.Open strCnn
SqlSelect = "delete From Stu where num='" + txtCardNum.Text + "'"
conn.Execute (SqlSelect)
conn.Close
End Function
'----------------End-----------------------删除一条记录-----------------------------
'----------------Start-----------------------查询一条记录-----------------------------
public Function SelectData()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCnn As String
Dim SqlSelect As String
strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User
conn.Open strCnn
SqlSelect = "SELECT * From Stu "
Set rs = conn.Execute(SqlSelect)
If Not rs.EOF Then
txtName.Text = rs("name")
txtAge.Text = rs("age")
txtCardNum.Text = rs("num")
End If
rs.Close
conn.Close
End Function
'----------------End-----------------------查询一条记录-----------------------------