Prikazi cijelu temu 08.06.2015 11:37
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Access programeri sta dalje.
ne znam postoji li neka funkcija za konekciju na my sql ovog tipa:
PreuzmiIzvorni kôd (Text):
  1. Private Sub LinkDizIS_Click()
  2.     Dim Baza As Database
  3.     Dim tdfLinked As TableDef
  4.     Dim i As Integer
  5.     Dim a As Integer
  6.     Dim IME As String
  7.    
  8.     Set Baza = CodeDb
  9.    
  10.    
  11.     Me.NazivServera = Me.LokalNazivServera
  12.     Me.NazivBaze = Me.LokalNazivBaze
  13.     Me.Korisnik = Me.LokalKorisnik
  14.     Me.Lozinka = Me.LokalLozinka
  15.     Me.Requery
  16.    
  17.     DoCmd.OpenForm "Cekaj"
  18.     DoCmd.RepaintObject A_FORM, "Cekaj"
  19.    
  20.     DoCmd.SetWarnings False
  21.    
  22.     On Error Resume Next
  23.     With Baza
  24.     a = .TableDefs.Count - 1
  25.         For i = a To 0 Step -1
  26.             IME = .TableDefs(i).Name
  27.             If .TableDefs(i).Connect <> "" Then
  28.                     .TableDefs.Delete IME
  29.             End If
  30.         Next i
  31.     End With
  32.    
  33.     Dim Tabele As DAO.Recordset
  34.     Dim ImeTabele As String
  35.     Dim KonektString As String
  36.     'Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=myUsername;Password=myPassword;
  37.     'KonektString = "Provider=sqloledb" & ";ODBC;DRIVER=SQL Server;SERVER =" & "192.168.1.33,1433" & ";Network Library=DBMSSOCN;Initial Catalog=" & Me.LokalNazivBaze & ";User ID=" & Me.LokalKorisnik & ";Password=" & Me.LokalLozinka & "'" ';Trusted_Connection"
  38.     KonektString = "ODBC;DRIVER=SQL Server;SERVER=" & Me.LokalNazivServera & ";UID=" & Me.LokalKorisnik & ";PWD=" & Me.LokalLozinka & ";DATABASE=" & Me.LokalNazivBaze & ";Trusted_Connection"
  39.     'KonektString = "ODBC;DRIVER=SQL Server;SERVER=" & "192.168.1.33,1433" & ";UID=" & Me.LokalKorisnik & ";PWD=" & Me.LokalLozinka & ";DATABASE=" & Me.LokalNazivBaze & ";Trusted_Connection"
  40.     SendKeys ("{ENTER}")
  41.    
  42.     DoCmd.TransferDatabase acLink, "ODBC Database", KonektString, acTable, "sysobjects", "LinkTables", , True
  43.  
  44.     Set Baza = CurrentDb
  45.     Set Tabele = Baza.OpenRecordset("QLinkTables1") ', DB_OPEN_DYNASET)
  46.  
  47.    With Tabele
  48.       Do While Not .EOF
  49.             ImeTabele = Tabele("Name")
  50.             If Trim(Tabele("type")) = "V" Then
  51.                
  52.                 DoCmd.TransferDatabase acLink, "ODBC Database", KonektString, acTable, ImeTabele, ImeTabele, False, True
  53.                
  54.             Else
  55.                 DoCmd.TransferDatabase acLink, "ODBC Database", KonektString, acTable, ImeTabele, ImeTabele, False, True
  56.                
  57.             End If
  58.             .MoveNext
  59.       Loop
  60.    End With
  61.    
  62. '    Set Baza = CodeDb
  63.  
  64. '    With Baza
  65. '        .TableDefs.Delete "LinkTables"
  66. '    End With
  67.    
  68.     DoCmd.Close A_FORM, "Cekaj"
  69.     BEEP
  70.    
  71.     DoCmd.SetWarnings True
  72.     DoCmd.Close acForm, "_Link"
  73.  
  74. End Sub
Miro