Connect via ip to an SQL database within a VB6 app

Greetings,

Here's what I would like to do....

Create a VB6 app.
Connect via ip to an SQL database.

Is that possible in VB6?

Thanks,

--- Mike
MikeCombeAsked:
Who is Participating?
 
DhaestConnect With a Mentor Commented:
   *  Connect via an IP address:
      "Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
0
 
leonstrykerCommented:
To expand on Dhaest answer form http://www.able-consulting.com/MDAC/ADO/Connection/OLEDB_Providers.htm#OLEDBProviderForSQLServer:

To connect to SQL Server running on a remote computer (via an IP address)

oConn.Open "Provider=sqloledb;" & _
           "Network Library=DBMSSOCN;" & _
           "Data Source=xxx.xxx.xxx.xxx,1433;" & _
           "Initial Catalog=myDatabaseName;" & _
           "User ID=myUsername;" & _
           "Password=myPassword"
Where:
- "Network Library=DBMSSOCN" tells OLE DB to use TCP/IP rather than
   Named Pipes (Q238949)
- xxx.xxx.xxx.xxx is an IP address
- 1433 is the default port number for SQL Server.  Q269882 and Q287932
- You can also add "Encrypt=yes" for encryption
0
 
rdwillettCommented:
I just use the same code to connect by name or ip and have found that it works the same.  Try below and let me know if it works.


Add a reference to the Microsoft ActiveX Data Objects 2.x Library under Project-->References
Add one Command Button named Command1 (default name)
Add the following code (changing it to match your ip and user properties -- userid -- password-- database name)

Public Sub Command1_Click()
    On Error GoTo err_connection
    Dim conn As New ADODB.Connection
    Dim sconnstring As String
   
    'For sql Authentication use this (comment out or delete the one you don't use)
    sconnstring = _
            "Provider=SQLOLEDB.1;" & _
            "User ID=MyID;" & _
            "Password=MyPassword;" & _
            "Initial Catalog=MySqlDatabase;" & _
            "Data Source = 100.100.100.100" 'Put Your IP Here

    'For Windows Authentication use this (comment out or delete the one you don't use)
        sconnstring = _
                "Provider=sqloledb;" & _
                "Data Source=100.100.100.100;" & _   'Put Your IP Here
                "Initial Catalog=MySqlDatabase;" & _
                "Integrated Security=SSPI;" & _
                "Connect TimeOut = 1000"
     
   
    conn.Open sconnstring
    If conn.State = adStateOpen Then
            Msgbox "I opened my database with an IP Address", vbInformation
            conn.Close
    End IF
   
    Exit Sub
err_connection:
    MsgBox Err.Description, vbInformation
End Sub

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.