السلام عليكم
اعمل على سيرفر يونكس مثبت عليه sql database وببرنامج فيجوال بيزك 2005
حاولت الاتصال بقاعدة البيانات عن طريق ADODB.Connection
ونجحت والحمد لله ورأيت الجداول الا انى لم استطع الدخول للحقول ورؤية ما بها
أرجو الافادة
وشكرا
مرفق الكود
Public Class Form1
Dim Cn As ADODB.Connection
Dim ds As ADODB.Recordset
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cn = New ADODB.Connection
With Cn
.CursorLocation = CursorLocationEnum.adUseClient
.Open("provider = msdasql;dsn=dd;uid=UserName;pwd=PassWord;datebase=Data;")
End With
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ds = New Recordset
ds.Open("select * from cars", Cn, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)
For i As Integer = 0 To ds.RecordCount
TextBox1.Text = ds!car_no
Next
End Sub
End Class
المشكلة فى السطر
TextBox1.Text = ds!car_no
حيث يعطى الخطأ:
(Expression does not produce a value.)