[اريد تعديل كود عندي مشروع تخرج (مركز كبائن اتصالات ) وما عرفت اين الخطاء
هاذا الكود ارجو المساعده
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "جديد" Then
Static m As Integer = 0
SQLstr = "SELECT * FROM tebel99 WHERE no =" & Mid(TextBox1.Text, 1, 2)
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "tebel99")
Conn.Close()
TextBox.DataBindings.Add("Text", DataSet1, "tebel99.mone")
Button1.Enabled = True
If Me.BindingContext(DataSet1, "tebel99").Count = 0 Then
MsgBox("No Result, Please Try Again ")
Exit Sub
End If
Me.Button1.Text = "توقف"
Me.Timer1.Enabled = True
Else
Me.Button1.Text = "جديد"
Me.Timer1.Enabled = False
'------------------------------------------------------------------------
Timer1.Enabled = False
Try
Dim SavInto As New OleDb.OleDbCommand
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\mydata.mdb"
Dim Conn As New OleDbConnection(ConStr)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "INSERT INTO Tebel(tel,tim,m)" & _
"values ('" & TextBox1.Text & "','" & dt2.Text & "','" & dt1.Text & "') "
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
'MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
'Me.Close()
'frm1.Show()
Catch ex As Exception
Exit Sub
End Try
Me.TextBox1.Text = 0
Me.dt2.Text = ""
Me.dt1.Text = ""
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.dt1.Text += 1
Me.dt2.Text = Me.dt1.Text * TextBox.Text
End Sub