各位快来吧，开始发分了，保证有来必有分。

Question

请问各位侠客们，在下有一个很简单的问题，关于 VB6中的(ADO) 与扩展名为（dbf)的数据库相连接的问题，最好有例子，要有明确得连接字符串

Answer 1

应该都是一样的：参考VB6的示例程序visdata。

Answer 2

http://expert.csdn.net/Expert/topic/1814/1814703.xml?temp=.7540552
http://expert.csdn.net/Expert/topic/2109/2109856.xml?temp=.2209436
http://expert.csdn.net/Expert/topic/1872/1872217.xml?temp=.8565943
http://expert.csdn.net/Expert/topic/2129/2129369.xml?temp=.9687464

Answer 3

With cnADO   '与ORACLE数据库连接  ''定义cnADO为一个到数据库的连接对象 
       .Open "provider=Oracle Provider for OLE DB;DATA SOURCE=mqph;
         USER ID=mq1;PASSWORD=302;Persist security info=true"End With

Answer 4

Dim cnnstr1 As String
Dim mrc1 As ADODB.Recordset
Dim cnn1 As ADODB.Connectioncnnstr1 = "provider=msdasql;DRIVER=Microsoft FoxPro VFP Driver (*.dbf);UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;" & _
"SourceDB = " & Left(txtdes, InStrRev(txtdes, "\") - 1)txtsql1 = "select * from xqdmk ORDER BY dsdm"
Set cnn1 = New ADODB.Connection
cnn1.OPEN cnnstr1
mrc1.CursorLocation = adUseClient
mrc1.OPEN txtsql1, cnn1, adOpenDynamic, adLockOptimistic