كيفية الاتصال بقاعدة فيها باسوورد

مغلق

بدأه whassan في 8 مارس 2006 · 3 رد · 564 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#18 مارس 2006 في 12:42 صاحب الموضوع

عند ي قاعدة بيانات محمية برقم سري

أريد أن أعمل connection على Tabel وضعت هذا الكود ولكن لم أعرف أين أضع الباسورد لقاعدة البيانات مع Path

هذا هو الكود أرجو إعلامي كيف يصبح الكود في حال وضع الباسوورد للقاعدة

وشكراً

Dim DBP As Database

Set CN = DBEngine.Workspaces(0).OpenDatabase("\\PC1\DB\DT.MDB")

#28 مارس 2006 في 13:23

السلام عليكم

ليس لي في VB لأكن جرب:

Set CN = DBEngine.Workspaces(0).OpenDatabase("\\PC1\DB\DT.MDB", False, False, "MS Access;PWD=northwind")

راجع

#38 مارس 2006 في 13:54

السلام عليكم

----------------------------------------------------------------------

#414 مارس 2006 في 11:08

Dim Path As String

Set con = New ADODB.Connection

Set rs = New ADODB.Recordset

Set col = New ADODB.Recordset

Set rec = New ADODB.Recordset

Set Taf = New ADODB.Recordset

Set Edara = New ADODB.Recordset

Set comp = New ADODB.Recordset

Set rec1 = New ADODB.Recordset

Set rec22 = New ADODB.Recordset

Path = App.Path & "\documents.mdb;Jet OLEDB:Database Password=sceco2006;"

con.CursorLocation = adUseClient

If rec.State = 1 Then rec.Close

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Path

Exit Sub

هذا الموضوع مغلق.

عدد الزوار حالياً