Prikazi cijelu temu 01.12.2018 18:18
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: My SQL Server pristap preku internet
Evo primjer konekcije sa referncom Microsoft ActiveX Data Object 6.1 i sa odbc 5.1.

PreuzmiIzvorni kôd (Visual Basic):
  1. Function Konekcija()
  2. Dim con As ADODB.connection
  3. Dim Host As String, DbIme As String, DbUser As String, DbPass As String
  4. Dim Rs As New ADODB.Recordset
  5.  
  6. Host = "Localhost"
  7. DbIme = "imebaze"
  8. DbUser = "Imekorisnika"
  9. DbPass = "sifra"
  10. Set con = New ADODB.connection
  11.  
  12.  
  13. con.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & Host & ";DATABASE=" & DbIme & ";USER=" & DbUser & ";PASSWORD=" & DbPass & ";"
  14. con.CursorLocation = adUseClient
  15.  
  16. con.Open
  17. Rs.Open "SELECT * FROM ImeTabele", con
  18. End Function

Tvoje jos nisam pogledao
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.