[RESOLVED] Error Help Please

[Jamie_Garland]

Im coming across this error you can see it on the screenshot can anyone help me please.?

This is the connection code.

Option Explicit
 
Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Public days As Integer
Public Username As String
 
Public Sub Main()
 
    Set con = New ADODB.Connection
                                                                    
    con.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=76.76.18.105;DATABASE=webspace_money;USER=webspace_money;PASSWORD=d82f1fc;"
    
    frmLogin.Show
    
End Sub

[abhijit]

Are you able to connect to this database from your ODBC Data Source Administrator?

[Jamie_Garland]

I ament doing it through the PC's mysql server it's going through my websites mysql?

[MarkT]

Do you have one of the "Microsoft ActiveX Data Objects 2.x Library" selected in the project references?

[si_the_geek]

Thread moved to Database Development forum (the "VB6" forum is meant for questions which don't fit in more specific forums)

I ament doing it through the PC's mysql server it's going through my websites mysql?

I've got no idea what that was supposed to mean, or how it was supposed to answer abhijit's question - and the best thing you can do at this stage is answer it.

Do you have one of the "Microsoft ActiveX Data Objects 2.x Library" selected in the project references?

He must have, otherwise a different error would occur on the Dim lines.

This particular error occurs at the stage where ADO is attempting to communicate with the database driver, which means that the interaction between VB and ADO is fine.

[MarkT]

He must have, otherwise a different error would occur on the Dim lines.

Good point.

I would start by finding a connection string that works. Probably the easiest way to do this is through a UDL file.

Create a new Text file and change the extenstion to .udl. Then double click the UDL to open it. From the Provider tab select the driver and then go on to the connection tab. After adding all the info, test the connection. If it works, click the OK button. Now open the UDL file using Notepad. The connection string will be the last line in the file.

[Jamie_Garland]

This is the login code and it highlights the con.open.

I dont use the pc for it i use my mysql on my webserver to connect too.

Set rs = New ADODB.Recordset
    If Trim(txtUsername.Text) = "" Then Exit Sub
    If con.State = 0 Then con.Open
    
    rs.Open "select password,usertype from Users where username='" & txtUsername.Text & "'", con, adOpenKeyset, adLockPessimistic
    
        If rs.EOF = True Then
            MsgBox "Please Check Your Username And Password, ", vbQuestion, "Question"
            txtUsername.SetFocus
            Exit Sub
        End If
        
        If Trim(txtPassword.Text) = Trim(rs(0)) Then
            Username = txtUsername.Text
            Unload Me
            
            If rs(1) = "Normal" Then
                frmMain.mnuAdmin.Enabled = False
            End If
            frmMain.Show
        Else
            MsgBox "Password Is Wrong, ", vbCritical, "Password Wrong"
            txtPassword.SetFocus
        End If
        
        If rs.State = 1 Then rs.Close
        If con.State = 1 Then con.Close

[techgnome]

1) If that's your server's address... I'd change the code in the first post and block out the IP, the user name, the password and database name.... or you're inviting an attack on your database. Then I'd go ahead and change the password on the server jsut in case.
2) "I dont use the pc for it i use my mysql on my webserver to connect too." -- if that's the case, then you may need to look to your host provider, as some do not allow access to the database from outside their servers. My host is like that. I can't get to the database from the outside, only from my cpanel or my web pages... it's a security thing.

-tg

[brucevde]

Regardless of where in the world the database is located, you need to install the MySQL ODBC driver on your PC.

[Jamie_Garland]

I've tried the connection and it works fine says it was connected but when i try run it on the server it gives me the above error still and highlights

Public Sub Main()
 
    Set con = New ADODB.Connection
    con.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=79.170.40.167;DATABASE=web167-money;USER=web167-money;PASSWORD=d82f1fc;"
    Frm_Login.Show 1
 
End Sub

Private Sub cmdLogin_Click()
 
Set rs = New ADODB.Recordset
If Trim(txtUsername.Text) = "" Then Exit Sub
If con.State = 0 Then con.Open
 
    rs.Open "select password,usertype from Users where username='" & txtUsername.Text & "'", con, adOpenKeyset, adLockPessimistic
    
      If rs.EOF = True Then
        MsgBox "Check User Name and Password"
        txtUsername.SetFocus
        Exit Sub
    End If
    
    
    If Trim(txtPassword.Text) = Trim(rs(0)) Then
        Username = txtUsername.Text
        Unload Me
        If rs(1) = "Normal" Then
          Frm_MDI.NU.Visible = False
          Frm_MDI.B4.Visible = False
          Frm_MDI.Rpt.Visible = False
        End If
        Frm_MDI.Show
        Frm_dateWise.Show 1
    Else
      MsgBox "Password Is Wrong"
      txtPassword.SetFocus
    End If
If rs.State = 1 Then rs.Close
If con.State = 1 Then con.Close
 
End Sub

the error is highlighted here in red and the screenshot above diplayes the error message i get?

If Trim(txtUsername.Text) = "" Then Exit Sub
If con.State = 0 Then con.Open

[abhijit]

1. What do you mean by run it on the server? Are you running this on a machine other than your pc, or you mean running this code against the database server.

2. Did you test the connection using your ODBC control panel?

So far what I have understood is that you have

• a mysql database.
• the database is remotely hosted.
• you are unable to establish a connection from your vb6 program.
• you are able to establish a connection using your mysql client.