madurax86 said:try searching on pscode.com
i dont know anything about databases i use my own ways to manage databases![]()
Thanks for the quick replying.
Macho what is the your secret on Database programming than M* SQL or Oracle ????????

madurax86 said:try searching on pscode.com
i dont know anything about databases i use my own ways to manage databases![]()

blackhole said:Macho VB walata MySQL Database connect karanna puluwanda?
SQL Query, ADO Data Controllers walata mySQL link karanne kohomada ??????????
Pls Help
Thanks
[URL="ftp://ftp.inria.fr/pub/MySQL/Downloads/Connector-ODBC/3.51/mysql-connector-odbc-3.51.27-win32.msi"]Download[/URL] or [URL="http://dev.mysql.com/downloads/connector/odbc/3.51.html#win32"]http://dev.mysql.com/downloads/connector/odbc/3.51.html#win32[/URL]
Dim con As Connection
Dim rs As Recordset
Dim server As String ' server eka hari server eke ip , nathnam "localhost"
Dim port As String 'port eka (3306)
Dim user_name As String ' "root"
Dim dbname As String
Dim psw As String
Dim [COLOR=DarkOrchid]table[/COLOR] As String
server = "localhost"
port = "3306"
dbname = "your_db_name"
user_name = "root" ' or your user name in mysql
psw = "your password"
table = "your_table_name"
Set con = New Connection
con.Open "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=" & server & ";" _
& " DATABASE=" & dbname & ";" & " PORT=" & port & ";" _
& "UID=" & user_name & ";PWD=" & psw & "; OPTION=3"
Set rs = New Recordset
rs.Open [COLOR=Red]"sqlcommands"[/COLOR], con
'sqlcommands walta mysql commands use karanna with in ""
' Eg : "INSERT INTO [COLOR=DarkOrchid]table[/COLOR] (autoID , name , email, ) VALUES (NULL , '" & [COLOR=DarkOrange]varname[/COLOR] & "' , ' " & var[COLOR=DarkOrange]email[/COLOR] & '" )"
Set rs = Nothing
con.Close
Set con = Nothing

vbmaster said:ok this is the way ,
issellama
MySQL Connector/ODBC 3.51 Downloads
eka download karanna oni
meka instrall karata passe thamai me vb codes wada karanneCode:[URL="ftp://ftp.inria.fr/pub/MySQL/Downloads/Connector-ODBC/3.51/mysql-connector-odbc-3.51.27-win32.msi"]Download[/URL] or [URL="http://dev.mysql.com/downloads/connector/odbc/3.51.html#win32"]http://dev.mysql.com/downloads/connector/odbc/3.51.html#win32[/URL]
Code:Dim con As Connection Dim rs As Recordset Dim server As String ' server eka hari server eke ip , nathnam "localhost" Dim port As String 'port eka (3306) Dim user_name As String ' "root" Dim dbname As String Dim psw As String Dim [COLOR=DarkOrchid]table[/COLOR] As String
Code:server = "localhost" port = "3306" dbname = "your_db_name" user_name = "root" ' or your user name in mysql psw = "your password" table = "your_table_name"
create your connection
Code:Set con = New Connection con.Open "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=" & server & ";" _ & " DATABASE=" & dbname & ";" & " PORT=" & port & ";" _ & "UID=" & user_name & ";PWD=" & psw & "; OPTION=3"
use table
Code:Set rs = New Recordset rs.Open [COLOR=Red]"sqlcommands"[/COLOR], con 'sqlcommands walta mysql commands use karanna with in "" ' Eg : "INSERT INTO [COLOR=DarkOrchid]table[/COLOR] (autoID , name , email, ) VALUES (NULL , '" & [COLOR=DarkOrange]varname[/COLOR] & "' , ' " & var[COLOR=DarkOrange]email[/COLOR] & '" )"
form unload
Code:Set rs = Nothing con.Close Set con = Nothing
edit : Project > References > Microsoft ActiveX Data Objects 2.7 Library. tick on it
ok it's finish .![]()






















