VB与ADO的用法 (增删改查)
2011-06-02 10:29
148 查看
Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub CmdAdd_Click()
Dim sname, stel, saddr As String
sname = TxtName.Text
stel = TxtTel.Text
saddr = TxtAddr.Text
Dim StrSQL As String
StrSQL = "insert into stu values ('" & sname & "','" & stel & "','" & saddr & "') "
MSH_ADO cn, StrSQL
End Sub
Private Sub CmdDelete_Click()
Dim sid As Integer
sid = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
Dim StrSQL As String
StrSQL = "delete stu where sid=" & sid
MSH_ADO cn, StrSQL
End Sub
Private Sub CmdUpdate_Click()
Dim sid As Integer
Dim sname, stel, saddr As String
sid = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
sname = TxtName.Text
stel = TxtTel.Text
saddr = TxtAddr.Text
Dim StrSQL As String
StrSQL = "update stu set sname='" & sname & "',stel='" & stel & "',saddr='" & saddr & "' where sid=" & sid
MSH_ADO cn, StrSQL
End Sub
Private Sub Form_Load()
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=My_Stu;Data Source=."
cn.Open
Set rs = cn.Execute("select * from stu")
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 0
cn.Close
End Sub
Private Sub MSHFlexGrid1_EnterCell()
'单击某一单元时,改变该行颜色
Dim i_Col As Integer
Dim c_col As Integer
c_col = MSHFlexGrid1.Col
If c_col > 0 Then
For i_Col = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i_Col
MSHFlexGrid1.CellBackColor = &HFFFFC0
Next i_Col
MSHFlexGrid1.Col = c_col
End If
TxtName.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
TxtTel.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3)
TxtAddr.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)
End Sub
Private Sub MSHFlexGrid1_LeaveCell()
'当某一行失去焦点时,改变该行颜色
Dim i_Col As Integer
Dim c_col As Integer
c_col = MSHFlexGrid1.Col
For i_Col = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i_Col
MSHFlexGrid1.CellBackColor = vbWhite
Next i_Col
MSHFlexGrid1.Col = c_col
End Sub
Private Function MSH_ADO(cn As ADODB.Connection, StrSQL As String)
cn.Open
cn.Execute (StrSQL)
Dim rs As ADODB.Recordset
Set rs = cn.Execute("select * from stu")
Set MSHFlexGrid1.DataSource = rs
cn.Close
End Function
Dim rs As ADODB.Recordset
Private Sub CmdAdd_Click()
Dim sname, stel, saddr As String
sname = TxtName.Text
stel = TxtTel.Text
saddr = TxtAddr.Text
Dim StrSQL As String
StrSQL = "insert into stu values ('" & sname & "','" & stel & "','" & saddr & "') "
MSH_ADO cn, StrSQL
End Sub
Private Sub CmdDelete_Click()
Dim sid As Integer
sid = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
Dim StrSQL As String
StrSQL = "delete stu where sid=" & sid
MSH_ADO cn, StrSQL
End Sub
Private Sub CmdUpdate_Click()
Dim sid As Integer
Dim sname, stel, saddr As String
sid = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
sname = TxtName.Text
stel = TxtTel.Text
saddr = TxtAddr.Text
Dim StrSQL As String
StrSQL = "update stu set sname='" & sname & "',stel='" & stel & "',saddr='" & saddr & "' where sid=" & sid
MSH_ADO cn, StrSQL
End Sub
Private Sub Form_Load()
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=My_Stu;Data Source=."
cn.Open
Set rs = cn.Execute("select * from stu")
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 0
cn.Close
End Sub
Private Sub MSHFlexGrid1_EnterCell()
'单击某一单元时,改变该行颜色
Dim i_Col As Integer
Dim c_col As Integer
c_col = MSHFlexGrid1.Col
If c_col > 0 Then
For i_Col = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i_Col
MSHFlexGrid1.CellBackColor = &HFFFFC0
Next i_Col
MSHFlexGrid1.Col = c_col
End If
TxtName.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
TxtTel.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3)
TxtAddr.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)
End Sub
Private Sub MSHFlexGrid1_LeaveCell()
'当某一行失去焦点时,改变该行颜色
Dim i_Col As Integer
Dim c_col As Integer
c_col = MSHFlexGrid1.Col
For i_Col = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i_Col
MSHFlexGrid1.CellBackColor = vbWhite
Next i_Col
MSHFlexGrid1.Col = c_col
End Sub
Private Function MSH_ADO(cn As ADODB.Connection, StrSQL As String)
cn.Open
cn.Execute (StrSQL)
Dim rs As ADODB.Recordset
Set rs = cn.Execute("select * from stu")
Set MSHFlexGrid1.DataSource = rs
cn.Close
End Function
相关文章推荐
- java中ArrayList用法详解,基本用法(含增删改查)
- ASP.NET中实体数据库模型的增删改查的用法。
- datalist 的用法。也是增删改查,但是比较智能。用数据绑定的方式,可以有不同的显示方法,下面是对一个表的增删改查的参考代码
- ADO.NET实现对SQL Server数据库的增删改查示例
- ADO.net:数据库的增删改查的练习题
- 黑马程序员---ADO.NET基础之增删改查等代码示例
- ADO.NET基本数据操作(增删改查)
- ADO.NET 增删改查的基本用法
- 20.2015.8.12第二十二课ado.net1,2(增删改查代码)
- C# ADO.NET动态数据的增删改查(第五天)
- Session的基本用法(增删改查)
- 在jsp中连接数据库的用法(增删改查)
- ado完整的增删改查操作
- jqGrid用法及增删改查方法
- 实现数据库的增删改查(ADO.Net)
- mongoTemplate简单用法(增删改查)
- 实现数据库的增删改查(ADO.Net)
- EF TransactionScope 及增删改查用法
- java连接mysql数据库 三 实现增删改查操作
- [VB.NET]ADO数据库处理-执行SQL代码