[es] - Kako da se konektujem na zasticenu bazu ?

milig
Igor Miloradovic
informaticar
Despotovac

Član broj: 57330
Poruke: 85
*.vdial.verat.net.

ICQ: 319256294

Profil

Kako da se konektujem na zasticenu bazu ?

^{13.05.2005. u 12:06 - pre 230 meseci}

Imam bazu db2.mdb , i hocu da joj pristupim iz fajla db1.mdb . Ako db2.mdb nije zasticena onda odlicno radi ona "ugradjena" fora sa Link Tables koju mi je Mika objasnio, ali ako je db2.mdb zasticena (user level security) to ne funkcionise. Verovatno da to mora da se odradi u VBA (i to sam pokusavao ali bez uspeha) . Ima li neko ideju kako to izvesti ?

Odgovor na temu

xrpower
Serbia

Član broj: 97358
Poruke: 2
212.62.59.*

Profil

Re: Kako da se konektujem na zasticenu bazu ?

^{08.06.2006. u 13:34 - pre 217 meseci}

Tako sto ces da napravis DSN (Start→Control Panel→administrative tools→Sistem ili File DSN sta ti vise odgovara), aj sad sam;))) Naravno ovo ne radi ako mislis na repliku.
Evo jedan vbs

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")

objConnection.Open "DSN=Inventory;"
objRecordset.CursorLocation = adUseClient
objRecordset.Open "SELECT * FROM Hardware" , objConnection, _
adOpenStatic, adLockOptimistic
objRecordset.Close
objConnection.Close

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Kako da se konektujem na zasticenu bazu ?

^{08.06.2006. u 15:34 - pre 217 meseci}

Moras da se logujes kao user koji ima prava da vidi bazu. Ako nemas prava da radis sa bazom ne mozes da uradis nista, ni rucno ni kroz VB.

Odgovor na temu

nexip
Paracin

Član broj: 98017
Poruke: 9
*.ptt.yu.

Profil

Re: Kako da se konektujem na zasticenu bazu ?

^{13.06.2006. u 09:16 - pre 217 meseci}

Mene intresuje suprotno ha-ha .
Kako spreciti da neko uveze objekte iz moje baze?

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
195.29.146.*

+8 Profil

Re: Kako da se konektujem na zasticenu bazu ?

^{13.06.2006. u 14:21 - pre 217 meseci}

Hmmmmmmmm ,
Ako znas password za bazu onda lako.

Evo kako izgleda dio koda ako je baza zasticena
a ti zelis vidjeti tablice i query - je

Mozda ti pomogne

curpasword="12345HJAKL"
..................................................

curp = ";pwd=" + curpasword
curpasword = curp

............................................

Dim dbss1 As Database
Set dbss1 = OpenDatabase(cursetdef, False, False, curpasword)
Dim trtko As QueryDef
Dim tbl1 As TableDef

tabtrt = ""
For Each tbl1 In dbss1.TableDefs

If tbl1.Attributes = 0 Then

tabtrt = tabtrt + tbl1.Name + ";"
End If
Next

For Each trtko In dbss1.QueryDefs

If Left(trtko.Name, 1) = "~" Then
Else
tabtrt = tabtrt + trtko.Name + ";"
End If
Next

Odgovor na temu

nexip
Paracin

Član broj: 98017
Poruke: 9
*.ptt.yu.

Profil

Re: Kako da se konektujem na zasticenu bazu ?

^{13.06.2006. u 15:22 - pre 217 meseci}

Ja bih hteo da probam ovaj kod ali kako ga postaviti i aktivirati?

pozdrav

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
195.29.146.*

+8 Profil

Re: Kako da se konektujem na zasticenu bazu ?

^{14.06.2006. u 08:11 - pre 217 meseci}

pa na formu si stavis dugme
i na eventu Click , odes u taj sub i tamo stavis kod

jos si na formu stavis List box , nazoves ga TABLICE
RowSourceType= Value list
i to ti je to

ovaj dolje kod ce ti napuniti list box s tablicama koje se nalaze u drugoj bazi

malo sam prepravljao doljni kod , mozda sam gdje ispustio koje slovo

Private Sub Command0_Click()

On Error GoTo lospas

cursetdef = "c:\mojebaze\db2.mdb"

curp = ";pwd=MOJPAS1224"
curpasword = curp

Dim dbss1 As Database
Set dbss1 = OpenDatabase(cursetdef, False, False, curp)
Dim trtko As QueryDef
Dim tbl1 As TableDef
tabtrt = ""

For Each tbl1 In dbss1.TableDefs
If tbl1.Attributes = 0 Then
tabtrt = tabtrt + tbl1.Name + ";"
End If
Next

tablice.RowSource = tabtrt

End Sub

Pozdrav
Trtko

Odgovor na temu

milig
Igor Miloradovic
informaticar
Despotovac

Član broj: 57330
Poruke: 85
*.vdial.verat.net.

ICQ: 319256294

Profil

Re: Kako da se konektujem na zasticenu bazu ?

^{14.06.2006. u 13:52 - pre 217 meseci}

Hvala xrpower. Jako koristan kod (do sada nisam koristio ado)

Hvala i Trtko - u , lep primer ali za bazu sa "obicnom" zastitom (database password). Sta ako je db2 zasticena sa user level security (pretpostavlja se da znamo user i pass) ?

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.co.yu.

+8 Profil

Re: Kako da se konektujem na zasticenu bazu ?

^{28.08.2007. u 12:35 - pre 202 meseci}

Cisto da refreshujem temu, meni upravo ovo treba.

Preko Advanced Access password recovery se iz cuga dobija password, a taj program iz cuga moze da se crackuje, tako da postavljanje passworda na bazu zaista nije prakticno, nazalost. Naravno, postoji mogucnost da klijent nije informaticki previse obrazovan.

Ja bih voleo da napravim custom logon form, ubija malo sivilo kad se covek kaci.

Evo kako sam zamislio otprilike da to funkcionise

1. Postaviti password na bazu na serveru
2. Napraviti bazu bez tabela (i dalje mdb.)
3. Zakljucati tabelu sa kodom
dim dbs as DAO.Database ' (ADO nisam koristio, a citao sam da je DAO bolji za *.mdb)
set dbs = Currentdb
4. Pomocu VBA koda nakaciti se na bazu na serveru i linkovati tabele
5. VBA kod zastititi sifrom (project properties), posto za MDE korak 3 ne radi

Sad postoji pitanje sta ako korisnik jednostavno resetuje racunar, tada ce u bazi ostati linkovane tabele.

Osnovni razlog zbog koga zelim ovo da uradim preko linkovanih tabela je taj što bih voleo da svaki racunar u mrezi ima modul za odredjivanja serijskog broja HDD i da se za svaki posebno izdaje licenca, da se izbegne situacija da ogromne kompanije kupe dve kopije nekog softvera ili slicno.

Voleo bih da me neko uputi u pravom smeru.

Hvala unapred!

Ozbiljan i odgovoran mladić

Odgovor na temu