اين الخطاء في هذا الكود لو سمحتم

[bekhet2003]

 

Private Sub Command0_Click()
Dim Connection As New ADODB.Connection
Dim ResultSet As New ADODB.Recordset
Dim SelectStatement As String
Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\ rr.mdb"'
Connection.Open
Set ResultSet.ActiveConnection = Connection
SelectStatement = "SELECT emplyee .* " & _
     "FROM emplyee " & _
     "WHERE satff_name _as LIKE '"
MsgBox SelectStatement
End Sub

hh.zip

 

[رمهان]

حياك الله اخينا الكريم

ومع انه لم يتم ارفاق صورة للخطأ او نص رسالة الخطأ ولكن يتوقع ان تكون احد النقطنتين التالية :

1. تلاحظ وجود مسافة قبل اسم القاعدة 

4 ساعات مضت, bekhet2003 said:

Source=D:\ rr.mdb

وليصبح

Source=D:\rr.mdb

2. التاكد من مسار القاعدة الصحيح وانه يوجد درايف باسم d

 

بالتوفيق

[bekhet2003]

انا اضافت المثال لتوضيح جزاك الله خيرا