Prikazi cijelu temu 07.02.2015 12:27
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Access programeri sta dalje.
eve od kaj mene da vidis jas imam za site programi sega sto gi rabotam eden modul vo koj mi se site konekcii
PreuzmiIzvorni kôd (Visual Basic):
  1. Set cn = New ADODB.Connection
  2.      
  3.  
  4.  If ReadIniValue(App.path & "\METMG.ini", "Baza", "TipBaza") = 1 Then
  5.     ' My SQL server
  6.     cn.ConnectionString = "Driver={Mysql ODBC 5.1 Driver}; Server=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Server") & _
  7.                            ";port=3306; database=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "BazaDB") & _
  8.                            "; user=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "User") & _
  9.                            "; password=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Password") & "; option=3;"
  10.      '---------------------------------------------------------------------------------------
  11.  ElseIf ReadIniValue(App.path & "\METMG.ini", "Baza", "TipBaza") = 2 Then
  12.      '--------------------------  SHAPE SQL Server 2000 / 2005  so INI File  -----------------------------
  13.    
  14.     If ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Password") = "" Then Pass = ""
  15.     If ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Password") <> "" Then Pass = Enc.Decode64(ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Password"))
  16.      
  17.      cn.ConnectionString = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;Driver={SQL Server};Server=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "Server") & _
  18.                            ";Database=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "BazaDB") & _
  19.                            ";Uid=" & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "User") & _
  20.                            ";Pwd=" & Pass & ";"
  21.       DA = 1
  22.       NE = 0
  23.      '---------------------------------------------------------------------------------------
  24.  ElseIf ReadIniValue(App.path & "\METMG.ini", "Baza", "TipBaza") = 3 Then
  25.      '--------------------------  SHAPE MsAccess -------------------------------------------
  26.     Baza = ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "PatekaBaza") & ReadIniValue(App.path & "\METMG.ini", "ServerSetup", "BazaDB") & ".mdb"
  27.      cn.ConnectionString = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Baza & ";"
  28.      '---------------------------------------------------------------------------------------
  29.      DA = True
  30.       NE = False
  31.  
  32.   End If
  33.  
  34.    cn.Open
  35. If cn.State = adStateOpen Then
  36.     Call Postavi_Parametri
  37.      
  38.    frmLogin.Show
  39.      
  40.  
  41.  
  42. End If