No replies to this topic

[nodeffect]

Hi guys,
here's the code example

01	Private Sub Command1_Click()

02	 

03	    Dim MyConnObj As New ADODB.Connection 'ADODB Connection Object

04	    Dim myRecSet As New ADODB.Recordset 'Recordset Object

05	    Dim sqlStr As String ' String variable to store sql command

06	     

07	    MyConnObj.Open _

08	        "Provider = sqloledb;" & _

09	        "Data Source=172.16.1.60;" & _

10	        "Initial Catalog=TESTATV;" & _

11	        "User ID=sa;" & _

12	        "Password=p@ssW0rd;"

13	     

14	     sqlStr = "select * from employee"

15	     

16	    myRecSet.Open sqlStr, MyConnObj, adOpenKeyset

17	         

18	    MsgBox "Total Number of records = " & myRecSet.RecordCount

19	     

20	    Dim i As Integer 'variable to keep count

21	    i = 1

22	     

23	    Print "#"; Tab; "ID"; Tab; "Name"; Tab; "Salary"

24	    Print ""

25	    

26	    While Not myRecSet.EOF ' Loop until endd fo file is reached

27	     

28	        Print i; Tab; myRecSet(0); Tab; myRecSet(1); Tab; myRecSet(2)

29	            '0- 1st filed, 1- 2nd Field and so on...

30	             

31	        myRecSet.MoveNext 'Moves the RecordSet pointer to the next position

32	         

33	        i = i + 1

34	    Wend

35	         

36	    MyConnObj.Close

37	     

38	End Sub

This code will only select data from a table from one database. Do you guys know what can I do if I want to select data from multiple database? Thanks