[nethan]

 [mysql][ odobc 5.1 driver] can't connect to mysql server
Option Explicit
Global conn  As New ADODB.Connection
Global rs As New ADODB.Recordset

Sub Main()
    Dim strclient As String
    Dim strserver As String
    conn.CursorLocation = adUseClient
    'conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Mode=ReadWrite;Driver=MySQL ODBC 5.1 Driver;SERVER=%192.168.0.3;UID=nethan;DATABASE=dbcaltex1;PWD=nethan;SOCKET=MySQL;PORT=3306"
    conn.ConnectionString = "Driver=MySQL ODBC 5.1 Driver;SERVER=192.168.0.3;UID=nethan;PWD=nethan;DATABASE=dbcaltex1;SOCKET=MySQL;PORT=3306"
    conn.Open
    If conn.State = adStateOpen Then
    frmmenu.Show
    End If
End Sub

rhis is my module please help me to lan base my system 

[tlhIn`toq]

"Please help me" doesn't tell us what problem you are running in to.


Your assignment is to do this in VB6? You're deliberately going to school to learn a language that's been dead for a decade? Should this be moved to VB.NET?

Please read: This is not the VB.NET forum
Please read: Is learning VB6 now a complete waste of time?

Q:... how to do x,y,z with a database {probably for the first time}...
A: Read this tutorial
Entire section of tutorials
Parameterizing Your SQL Queries: The RIGHT Way To Query A Database.
Using SqlDependency to monitor SQL database changes

This post has been edited by tlhIn`toq: 10 February 2013 - 07:58 AM

[BobRodes]

Where you have your server name, just put the server name for the server. Congrats, you're "lan-based."

[nethan]

that's right !! i want to learn VB.Net and asp.net
by my own

i do this for my subject

thank you for suggestion

i do that. . i add my server name to my module but system says"the host is not allowed to access my MYSQL Server

Please help me!!! this is my problem