قمت بتصميم برنامج بفيجوال بيزيك 6 ، وحاولت ربطه بقاعدة sql server وكتبت الأكواد التالية
Dim cn
As New ADODB.Connection
Dim rh As New ADODB.Recordset
Dim cn As
ADODB.ConnectionSet cn = New Connection
If cn.State = 1 Then cn.Close
cn.ConnectionString = "Provider=SQLNCLI.1;Integrated Security=SSPI;" & _
"Persist Security Info=False;" & _
"AttachDBFileName=" & App.Path & "\walla.mdf;Data Source=
wam\sqlexpress"
'************************************************* ****************
If rh.State = 1 Then rh.Close
SQL2 = "select * from ast "
rh.Open SQL2, cn, 1, 3
وعند تنفيذه تظهر لي الرسالة( لا يمكن الاتصال لتنفيذ هذه العملية .. نظراً لغلقه أو لعدم صلاحيته
بهذا السياق)
نأمل المساعدة اذا امكن .. قبل أن اترك sql server واستمر في الاكسيس الذي أعرفه !!