Sign In
Create Account
Baza date protejata cu parola
Last Updated: Dec 30 2006 13:22, Started by
vandy
, Dec 30 2006 06:50
·
0
0
#1
Posted 30 December 2006 - 06:50
|
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
|
Back to top
#2
Posted 30 December 2006 - 07:52
|
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
Posted 30 December 2006 - 09:34
|
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
Posted 30 December 2006 - 13:22
|
Merge! Multumesc foarte mult! Set dbs = OpenDatabase("C:\baza.mdb", False, False, ";pwd=parolamea")  cu placere .
|
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users
-
- Change Theme
- English
- Mark Community Read
- Termene & conditii
- Confidentialitate
- Consimtamant
- Cookies
- Help
© 2001-2024 Softpedia. All rights reserved. Softpedia® and the Softpedia logo are registered trademarks of SoftNews Net SRL.
Ora implicita a Forumului Softpedia este ora standard a Romaniei (GMT+2). Mai multe informatii →
⚠ Postarile afisate pe Forumul Softpedia reprezinta o opinie subiectiva a membrilor care le-au publicat si nu a SoftNews Net SRL.