Question

用DAO连接数据库，下面的程序为善不能显示数据库中的内容，引用也设置了，就不知道为啥，就这么多分了

Private Sub Form_Click()
Dim i As Integer
For i = 1 To 8
Me.Print LiangCheng(i)
Next i
End Sub

模块中的是
Option Explicit
Public Const DBPath = "C:\Documents and Settings\Administrator\桌面\数据库小程序\DAO\DATABASE\MCDB.mdb"
Global myWS As Workspace
Global LiangCheng(1 To 8) As Double
Global myDB As Database

Sub LiangChengInit()
Dim k As Integer
Dim myRS As Recordset
Set myRS = myDB.OpenRecordset("LiangChengTable") '打开数据路记录
myRS.MoveFirst '移到记录第一行
For k = 1 To 7
LiangCheng(k) = myRS![量程] '赋值
myRS.MoveNext
Next k
myRS.Close
End Sub

Answer 1

方法：将以下内容添加到程序.app中的InitInstance()函数中。数据源名称和数据库名称写上你所设置的即可。 SQLConfigDataSource(NULL,ODBC_ADD_DSN,

追问

你说的.app中的InitInstance()函数是什么意思？ SQLConfigDataSource(NULL,ODBC_ADD_DSN, 这是什么意思

Answer 2

你的连接字符串呢，你的sql 查询语句呢。去网上找找数据库操作的例子看看吧

追问

我就想把liangcheng中的数据通过点击窗体显示出来，你理解错了吧