كيفية الاتصال بالاستعلام عن طريق ado

السلام عليكم

ضع المثال هنا حتى يتم تعديله

Dim cat As New ADOX.Catalog

Dim cmd As New ADODB.Command

Dim Conn As New ADODB.Connection

Private Sub Command1_Click()

Call ADOModifyQuery

End Sub

Sub ADOModifyQuery()

'ADO

' Open the catalog

قمت باستبدال المسار"Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=.\NorthWind.mdb;"

dsn الى طريقة

هو مسار الربطconnحيث

cat.ActiveConnection = conn

' Get the query

Set cmd = cat.Procedures("Employees by Region").Command

' Update the SQL

cmd.CommandText = "SELECT * FROM Employees WHERE Region = [prmRegion] " & _

"ORDER BY City"

'cmd.Parameters("prmRegion") = "WA"

' Save the updated query

Set cat.Procedures("Employees by Region").Command = cmd

Set cat = Nothing

End Sub

Private Sub Form_Load()

Dim strConn As String

'Change the DSN to match your settings.

strConn = "DSN=nwindd;UID=;PWD="

With Conn

.CursorLocation = adUseClient

.ConnectionString = strConn

.Open

End With

End Sub

على فكرة عند استخدام المسار "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=.\NorthWind.mdb;"

في جملة =cat.ActiveConnection

يشتغل الكود

ولكني لا احبذ تحديد مكان قاعدة البيانات بل استخدم dsn لتعريف المسارلقاعدة البيانات وهنا تحدث المشكلة

السلام عليكم

تعقيبا لما ذكرته بالسابق اريد كود فتح الاستعلام ان يشتمل على الاتي

1- الاتصال بقاعدة البيانات عن طريق dsn

2 - استخدام كائن ado بدلا من dao

علما باني اقوم بربط هذا الاستعلام بتقرير كريستال ريبورت لعرض نتيجة الاستعلام

اين المساعدة

برنامجي يتوقف على مساعدتكم

ياشباب الفيجوال يامبرمجين ياخبراء اين المساعدة

و هذا مثال يبين لك كل ما تريد و يجيب على جميع تسائلاتك

الملف