Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (16):1,2 ... 11,12,13,14,15,16
 Prikazi prvu neprocitanu poruku

#121 06.06.2015 13:05
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Access programeri sta dalje.
Jas kaj mene imam konctanti DA i NE koi na start na program se odreduvaat vo zavisnost od tipot na konekcijata sto ke bidat.
Ako e MsAccess DA=True
ako e MsSql DA=1
ako e MySql DA=-1
↑  ↓

#122 08.06.2015 11:37
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


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
↑  ↓

#123 08.06.2015 12:13
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Access programeri sta dalje.
Samo zameni go KonektString i napravi go za MYSQL ovaj isti kod bo trebalo da funkcionira
↑  ↓

#124 08.06.2015 12:46
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Access programeri sta dalje.
Probao sam ovako stavit:
KonektString = "ODBC;DRIVER=MySql ODBC 5.3 Driver Server;SERVER=" & Me.LokalNazivServera & ";UID=" & Me.LokalKorisnik & ";PWD=" & Me.LokalLozinka & ";DATABASE=" & Me.LokalNazivBaze & ";Trusted_Connection"

I ovako:

PreuzmiIzvorni kôd (Text):
  1. KonektString = "Driver={Mysql ODBC 5.1 Driver}; Server=" & "127.0.0.1" & _
  2.                            ";port=3306; database=" & "FiskalBaza" & _
  3.                            "; user=" & "root" & _
  4.                            "; password=" & "1283" & "; option=3;"

Ali ne radi. Ne javlja nikakvu grešku
Miro
Ovaj post je ureden 1 puta. Posljednja izmjena 08.06.2015 12:48 od strane miro35. ↑  ↓

#125 08.06.2015 13:08
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Access programeri sta dalje.
Ova e ADO treba da vidis kako e za DAO kolku sto gledam ti DAO koristis
↑  ↓

#126 08.06.2015 13:08
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


Predmet:Re: Access programeri sta dalje.
evo ti string

kod servra koristiÅ¡ za lokalno povezivanje "localhost" a za sa nekog računara najsigurnije je ip adresa računara na kojem je postavljena baza normalno u lokalnoj mrezi ili vpn mrezi a za preko neta malo komplikovanije
strConnect = "ODBC;DRIVER={Mysql ODBC 5.1 Driver}" _
& "; port=3306;" _
& "; SERVER=" & strServer _
& "; DATABASE=" & strDatabase _
& "; user=" & strUID _
& "; password=" & strPWD _
& "; option=3;"
↑  ↓

#127 08.06.2015 13:14
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Access programeri sta dalje.
Dali go istalira odbc Drajverot?
↑  ↓

#128 08.06.2015 13:24
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: Access programeri sta dalje.
jesam instalirao sam i kreirao sam ga. Mogu preko njega da se povežem u access-u preko link table pa onda odbc driver.I tako mogu da biram tabele sve radi.Ali želim da napravim preko vba. Ako imate vi neku funkciju koja radi postavite.Želio bih da bude tako da imam neki spisak tabela i da te tabele linkuje.Isto tako da briše link pa da osvježavam novi link.tako nekako
Miro
↑  ↓

#129 08.06.2015 13:32
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


Predmet:Re: Access programeri sta dalje.
sad ču ti poslati da skrpim
↑  ↓

#130 08.06.2015 14:08
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


Predmet:Re: Access programeri sta dalje.
evo ti sve Å¡to ti je potrebno čak možeÅ¡ raditi neprestanu promjenu vrste servera sa sql na Mysql ali to čeÅ¡ sam skontati. Također ako kod ms sql koristi trustedkonekciju imaÅ¡ i to

uglavnom u tabeli serever napuniš podatcima prema svojim postavkama

a u tabelu drugu tabelu napiÅ¡eÅ¡ naziv tabele onako kako si je nazvao na serveru kod mysql je to jednostavno isto se preslikava ali kod ms sql vidjet ćeÅ¡ dodatak "dbo." i nediraj jer tako se zapisu je u strukturnu tabelu ali ako hočeÅ¡ da ti se koristi u nazivu dodatak "dbo_" to promjeniÅ¡ ako se dobro sječam Set tdfAccess = dbs.CreateTableDef("dbo_" & rs![LinkTablename], dbAttachSavePWD) ovdje ali preporučujem da puno se neigraÅ¡ sa ovim

Prilozi:
Informacije o tipu datoteke za:rar  sql i mysql konekcija.rar
Preuzimanja:203
Velicina datoteke:47.76 KB

↑  ↓

Stranice (16):1,2 ... 11,12,13,14,15,16

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 8: 52 am.