Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Scoatere antifurt airtag de pe ha...

Magnet in loc de clește pent...

Cumparat/Locuit in apartament si ...

Pot folosi sistemul PC pe post de...
 Sokol cu distorsiuni de cross-over

Filtru apa potabila cu osmoza inv...

Kanal D va difuza serialul “...

Upgrade xiaomi mi11
 securitate - acum se dau drept - ...

Farmacia Dr Max - Pareri / Sugest...

De unde cumparati suspensii / gar...

[UNDE] Reconditionare obiecte lemn
 Infiltratii casa noua

sugestie usa interior

ANAF si plata la selfpay

Imprimanta ciss rezista perioade ...
 

Baza date protejata cu parola

- - - - -
  • Please log in to reply
3 replies to this topic

#1
vandy

vandy

    Junior Member

  • Grup: Members
  • Posts: 41
  • Înscris: 09.12.2003
Am o baza de date pe care o citesc ca mai jos. Daca protejez cu parola baza de date 'baza.mdb', cam ce modificari trebuie sa aduc codului sursa vb6 pentru a o putea citi?
Multumesc.

	Dim dbs As Database
	Dim rst As Recordset

	Dim mysql$
	Set dbs = OpenDatabase("C:\baza.mdb")
	
	mysql$ = "SELECT "
	mysql$ = mysql$ & s & ".[F1]," & s & ".[F2] "
	mysql$ = mysql$ & "FROM " & s & " "
	mysql$ = mysql$ & "WHERE " & s & ".F1 Like ""*" & strFilter & "*"""

	Set rst = dbs.OpenRecordset(mysql, , dbReadOnly)
	With rst
		.MoveLast
		.MoveFirst
		a = !f1
		b = !f2
		.MoveNext
	End With
	
	rst.Close
	dbs.Close


#2
ionut_y

ionut_y

    Member

  • Grup: Members
  • Posts: 836
  • Înscris: 21.06.2005
Incearca sa modifici doar deschiderea bazei de date :

Set dbSal =OpenDatabase("C:\baza.mdb"), False, False, ";pwd=parolamea")

Edited by ionut_y, 30 December 2006 - 07:53.


#3
vandy

vandy

    Junior Member

  • Grup: Members
  • Posts: 41
  • Înscris: 09.12.2003

View Postionut_y, on Dec 30 2006, 07:52, said:

Incearca sa modifici doar deschiderea bazei de date :

Set dbSal =OpenDatabase("C:\baza.mdb"), False, False, ";pwd=parolamea")

Merge! Multumesc foarte mult!

Set dbs = OpenDatabase("C:\baza.mdb", False, False, ";pwd=parolamea")

#4
ionut_y

ionut_y

    Member

  • Grup: Members
  • Posts: 836
  • Înscris: 21.06.2005

View Postvandy, on Dec 30 2006, 09:34, said:

Merge! Multumesc foarte mult!

Set dbs = OpenDatabase("C:\baza.mdb", False, False, ";pwd=parolamea")

:)  cu placere .

Anunturi

Chirurgia spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate