Visual basic 6 and .net

vbmaster

Junior member
  • Jun 29, 2008
    132
    1
    18
    37
    in Al****'s heart
    blackhole said:
    Macho VB walata MySQL Database connect karanna puluwanda?
    SQL Query, ADO Data Controllers walata mySQL link karanne kohomada ??????????

    Pls Help

    Thanks

    ok this is the way ,

    issellama
    MySQL Connector/ODBC 3.51 Downloads
    eka download karanna oni

    Code:
     [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]
    meka instrall karata passe thamai me vb codes wada karanne



    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 . :D
     
    Last edited:

    blackhole

    Member
    Jul 3, 2007
    606
    4
    0
    46
    In a Blackhole
    vbmaster said:
    ok this is the way ,

    issellama
    MySQL Connector/ODBC 3.51 Downloads
    eka download karanna oni

    Code:
     [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]
    meka instrall karata passe thamai me vb codes wada karanne



    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 . :D



    Ok I'll see n let you know :) :) :) :)

    Thanks again
     

    mmgdinuka

    Junior member
  • Jan 28, 2009
    150
    9
    18
    Sinhala Horoscope Software Ekak

    Machan Mata dena ganna ona deyak. mama gaththa horoscope software ekak S-tec Astro Kiyala. Mama Machine Eka format karana hema welawakama Mekata aluth Password Ekak Denna Ona Activation Key Ekakuth Ekka. Meka maha Karadarayak. Company Eken Ahuwama Kiyanawa Activation Key Denne 3 Parak Witharai Kiyala. Mama Mara Amaruwaka wetila Inne.Mama 3 Parakma Gaththa Activation Key. Aya Ganna Belu. Hebei Meka Wena Computer Ekakata Demmama Weda Karanawa. Puluwannam Mata Meka Mage Machine ekema Run Karanna Kramayak Hoyala Dennako.Ekata Kramayak Kiyala Dunnoth Mama Me Programme Eka Oyata Dennam. Full Sinhala Language Eken weda Karanne 2 Minutes Walin Horoscope Thithatama Hadanawa. Please Help Me.

    Puluwannam Mata E-mail Ekak Danawada.

    [email protected]
     

    mmgdinuka

    Junior member
  • Jan 28, 2009
    150
    9
    18
    VB Programme Help Ekak Dennako

    Machan Mama Programme Ekak Heduwa Transport Sambandayen. Mata Eke Reports Wala Podi Prashnayak Thiyanawa.Pay Sheet Hadanna Ona Monthly 20 idala 20 ta. Mama Danne Ne Eka. Final Cheque Ekak Print Karannath Ona. Mata Mekata Help Ekak Denawada. Puluwan Kenek innawanam Mama Meka Upload Karala Link Eka Ewannam. Meka Hadala Denawada. Godak Pin Karala Denawanam Macho

    :angry::frown::no::frown::angry::frown::no::frown::angry::frown::no::frown::angry::frown::no::frown::angry::frown::no::frown::angry::frown::no: