现在使用ADO、MSHFLEXGRID和DATA、DBGRID分别打开SQL和ACCESS数据库
两个库里都有需要输出的字段,其中都包括CELL字段,现在我需要把他们关联起来,然后输出到文本文件
请问能不能这样关联啊?

解决方案 »

  1.   

    Private Sub Form_Load()
        Dim strConn As String
        Dim pubConn As New ADODB.Connection
        Dim rsTable As New ADODB.Recordset
        Dim strSQL As String
        'sql server2000
        strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
        'access2000
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\North.mdb;Persist Security Info=False"    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
        strSQL = "select  * from TableName"
        rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
        Set DataGrid1.DataSource = rsTableEnd Sub