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

? 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.ConnectionDim 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.CloseEnd SubPublic 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?????????