VB连接ACCESS例子及全部代码

VB连接ACCESS例子及全部代码VB连接ACCESS例子及全部代码

2007-03-19 13:40:32| 分类：sql相关|字号订阅

1.首先创建一个新工程，取名为OpenSql,即Open Sql的缩写，意思是在Open方法中采用Sql查询。

2.打开“引用”对话框，选取Microsoft ActiveX Data Object 2.1 Library

3.打开“部件”对话框，选取Microsoft Windows Common Control 6.0，工具箱中便添加了若干控件，其中一个名为ListView的控件.

4.将控件ListView控件加载到窗体中，取名为ListView1.窗体中中有这样一个控件，别无其他，所以是一个特别简单的界面。

5.在代码窗口中的全部代码如下。

Dim WithEvents myConnection As ADODB.Connection

Dim myRecordset As New ADODB.Recordset

Private Sub Form_Load()

Dim myPath As String

Dim srtConec As String

Set myConec = New ADODB.Connection

myPath = App.Path & "\TD.mdb;"

strconec = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath

myConec.Open strconec

'If strconec <= 0 Then

' MsgBox "Connection Failed！"

'Else

' MsgBox "Congratulations,Established！"

'End If

Dim strSql As String

ListView1.Top = 0

ListView1.Left = 0

myRecordset.CursorType = adOpenKeyset

myRecordset.LockType = adLockReadOnly

strSql = "select * from TBillInfo"

myRecordset.Open strSql, myConec, , , adCmdText

ShowListView

myRecordset.Close

myConec.Close

End Sub

Public Sub ShowListView()

Dim clmHead As ColumnHeader

Dim ListItm As ListItem

Dim i As Integer

ListView1.ColumnHeaders.Clear

ListView1.ListItems.Clear

ListView1.FullRowSelect = True

ListView1.View = lvwReport

For i = 0 To myRecordset.Fields.Count - 1

Set clmHead = ListView1.ColumnHeaders.Add()

clmHead.Text = myRecordset.Fields(i).Name Next

myRecordset.MoveFirst

Do While Not myRecordset.EOF

Set ListItm = ListView1.ListItems.Add()

If IsNull(myRecordset.Fields(0).Value) Then

ListItm.Text = "NULL"

Else

ListItm.Text = myRecordset.Fields(0).Value End If

For i = 1 To myRecordset.Fields.Count - 1

If IsNull(myRecordset.Fields(i).Value) Then

ListItm.SubItems(i) = "NULL"

Else

ListItm.SubItems(i) = myRecordset.Fields(i).Value End If

Next

myRecordset.MoveNext

Loop

ListView1.View = lvwReport

End Sub

Private Sub Form_Resize()

ListView1.Width = Width - 200

ListView1.Height = Height - 400

End Sub

Private Sub Form_Terminate()

Set myRecordset = Nothing

Set myConnection = Nothing

End Sub

Private Sub ListView1_BeforeLabelEdit(Cancel As Integer) End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－