不需要那么麻烦！ Private Cnn As Object Private Rst As Object Private Sub Form_Load() Set Cnn = CreateObject("ADODB.Connection") Cnn.CursorLocation = 3 'adUseClient Cnn.Open "DBQ=D:\TEST.MDB;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Rst = Cnn.Execute("SELECT * FROM CODES")
' DataGrid1 is a "Microsoft DataGrid Control". Set DataGrid1.DataSource = Rst End Sub 这可以显示access2000的数据，把分交给我吧，哈哈！
ZeeGee(ZeeGee) : Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long Public OK As Boolean 请教在上代码中怎么改？
Private Cnn As Object
Private Rst As Object Private Sub Form_Load() Set Cnn = CreateObject("ADODB.Connection")
Cnn.CursorLocation = 3 'adUseClient
Cnn.Open "DBQ=D:\TEST.MDB;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Rst = Cnn.Execute("SELECT * FROM CODES")
' DataGrid1 is a "Microsoft DataGrid Control".
Set DataGrid1.DataSource = Rst End Sub
这可以显示access2000的数据，把分交给我吧，哈哈！
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
请教在上代码中怎么改？