没有数据库...那当然不能连接..

你看代码有错误吗?
这次我给上传了数据库文件,麻烦你看看程序吧.

你应该知道什么叫数据库吧?...
我可是在你的符件上..没找到有任何数据库的综迹....

...看了一行代码..没继续看下去了...
Access数据库的扩展名是mdb,而不是dmb

我晕!
不好意思啊,粗心了太,没有弄上,要不你在看看吧,知道一下.
还有文件名弄错了,你看代码错 哪了好吗?

[此贴子已经被作者于2006-12-10 14:18:26编辑过]

Option Explicit
Private dbConn As ADODB.Connection
Private Rst As ADODB.Recordset

Private Sub Combo1_Click()
Dim sql As String
sql = "select [H] from Tdata1 where [Name]='" & Trim(Combo1.Text) & "'"

If Rst.State = adStateOpen Then Rst.Close

Rst.Open sql, dbConn, adOpenKeyset, adLockPessimistic, adCmdText

Text1.Text = Rst.Fields("H").Value
End Sub

Private Sub Form_Load()
Dim conString As String
conString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & App.Path & "\db.mdb"

Set dbConn = CreateObject("ADODB.Connection")

With dbConn
.ConnectionString = conString
.Open
End With

Set Rst = CreateObject("ADODB.Recordset")
Rst.CursorLocation = adUseClient

Dim sql As String
sql = "select [Name] from Tdata1"

Rst.Open sql, dbConn, adOpenKeyset, adLockPessimistic, adCmdText

Dim lngRecordCount As Long
Rst.MoveLast
lngRecordCount = Rst.RecordCount
Rst.MoveFirst

Dim i As Long

For i = 0 To lngRecordCount - 1
Combo1.AddItem Rst.Fields("Name").Value
Rst.MoveNext
Next

Combo1.ListIndex = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
Rst.Close
dbConn.Close
Set Rst = Nothing
Set dbConn = Nothing
End Sub

十分感谢版主!!!
再问一下哈,如果用控件连接的话呢?我的代码错误很多,刚才又找了几处,不过还是不能运行,想知道错在哪了.你看能不能修改一下呢?