Prikazi cijelu temu 02.12.2018 17:38
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Lokacija:Doboj


Predmet:Re: My SQL Server pristap preku internet
Uspio sam nešto napraviti.

Ovaj kod stavim na On open forme i otvori mi konekciju za tabelu koju otvaram preko forme:

Dim db As DAO.Database
Set db = CurrentDb()
db.TableDefs("yourTable").Connect = _
"ODBC;DSN=yourDSN;SERVER=yourServer;" & _
"PORT=3306;OPTION=12345;" & _
"DATABASE=yourDB;USER=yourUserName;" & _
"PASSWORD=yourPassword"
db.TableDefs("yourTable").RefreshLink
Set db = Nothing
End Sub

Prvo sam napravio ODBC konekciju, dao joj neko ime, ali sam konekciju ostavio bez lozinke.

U ovom kodu napišem sve podatke za konekciju i otvori mi konekciju za tabelu koju trebam.

Za MySQL bazu imate sve pristupne podatke u modulu (u primjeru koji sam poslao).