22-07-15, 01:23 PM
اشكرك على الجهد لكن يوجد خطأ
الكود
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
conn.Open()
Dim sql As String = "select max(Ren_NO)as maxid FROM Rent_Equipment"
Dim DA As New OleDbDataAdapter(sql, conn)
Dim DS As New DataSet
DA.Fill(DS, "Rent_Equipment")
TextBox5.DataBindings.Add("text", DS, "Rent_Equipment.MaxID")
Me.TextBox1.Text += 1
End Using
مكان الخطا
Me.TextBox1.Text += 1
نوع الخطأ
An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll
Additional information: Conversion from string "Ahmed Albasha" to type 'Double' is not valid.
الكود
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
conn.Open()
Dim sql As String = "select max(Ren_NO)as maxid FROM Rent_Equipment"
Dim DA As New OleDbDataAdapter(sql, conn)
Dim DS As New DataSet
DA.Fill(DS, "Rent_Equipment")
TextBox5.DataBindings.Add("text", DS, "Rent_Equipment.MaxID")
Me.TextBox1.Text += 1
End Using
مكان الخطا
Me.TextBox1.Text += 1
نوع الخطأ
An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll
Additional information: Conversion from string "Ahmed Albasha" to type 'Double' is not valid.
