数据库编程
一.VB
1.Project-flexgrid:选择 Components-Mircrosoft FlexGrid Control,用来显示数据
2.Project-Reference:选择 Mircrosoft ActiveX Data Object 2.8 Library,使用 ADO
3.添加模块:
Option Explicit
Global gConn As ADODB.Connection
Public Sub DBConnection()
Set gConn = New ADODB.Connection
'For Standard Security:
gConn.Open "Provider=sqloledb;Data Source=NAN;Initial Catalog=mytest2;User Id=sa;Password="
'For Trusted Connection security:
'gConn.Open "Provider=sqloledb;Data Source=NAN;Initial Catalog=mytest2;Integrated Security=SSPI"
End Sub
Public Sub DBDisconnection()
gConn.Close
End Sub
4.Form 代码:
Private Sub cmdDisplay_Click()
Call DBConnection
Dim i, j As Integer
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select * from employee", gConn, 1, 1
If rs.EOF Then Exit Sub
For i = 0 To rs.RecordCount - 1
For j = 0 To rs.Fields.Count - 1
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
If IsNull(rs(j)) Then
MSFlexGrid1.TextMatrix(i + 1, j) = ""
Else
MSFlexGrid1.TextMatrix(i + 1, j) = rs(j)
End If
Next
rs.MoveNext
Next
rs.Close
Call DBDisconnection
End Sub
Private Sub Form_Load()
Call DBConnection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim i As Integer
rs.Open "select * from employee", gConn, 1, 1
For i = 0 To rs.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, i) = rs.Fields(i).Name
Next
rs.Close
Call DBDisconnection
End Sub