18-11-18, 01:45 AM
السلام عليكم ورجمة الله وبركاته
لدي قاعدة بيانات اكسس ولاكن اوجه مشكله في اضافة التاريخ حاولت اغير نوع الجدول الى تاريخ ولم ينفع وغيرتها الى نص ولم ينفع استخدمت كودين
الكود الاول
الكود الثاني
ارجو مساعدتي بحل هذه المشكله
لدي قاعدة بيانات اكسس ولاكن اوجه مشكله في اضافة التاريخ حاولت اغير نوع الجدول الى تاريخ ولم ينفع وغيرتها الى نص ولم ينفع استخدمت كودين
الكود الاول
كود :
Dim ConnStr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & Application.StartupPath & "\data\stag01y40.mdb;User ID=Admin;jet oledb:database password=4405;"
Dim Conn As New OleDbConnection(ConnStr)
Dim SQLstr As String
Dim SavInto As New OleDb.OleDbCommand
If Conn.State = ConnectionState.Open Then
Conn.Close()
End If
SQLstr = "INSERT INTO [send] (id , date , from_b , to_b , note_m , note1 , note2 , note3 , fr3)" & _
"values ('" & TextBox1.Text & "','" & DateTimePicker1.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox3.Text & "','" & "1" & "','" & "0" & "','" & "0" & "','" & TextBox8.Text & "')"
SavInto.CommandType = CommandType.Text
SavInto.CommandText = SQLstr
SavInto.Connection = Conn
Conn.Open()
'SavInto.CommandText = "UPDATE [table3] SET num14= '" & TextBox28.Text & ""
SavInto.ExecuteNonQuery()
SavInto.Dispose()
Conn.Close()كود :
Dim CmdInsert As New OleDbCommand
With CmdInsert
.Connection = Conn
.CommandType = CommandType.Text
.CommandText = "Insert Into send (id , date , from_b , to_b , note_m , note1 , note2 , note3 , fr3)values( @id , @date , @from_b , @to_b , @note_m , @note1 , @note2 , @note3 , @fr3)
.Parameters.Clear()
.Parameters.AddWithValue("@id", OleDbType.VarChar).Value = TextBox1.Text
.Parameters.AddWithValue("@date", OleDbType.Date).Value = DateTimePicker1.text
.Parameters.AddWithValue("@from_b", OleDbType.VarChar).Value = ComboBox1.Text
.Parameters.AddWithValue("@to_b", OleDbType.VarChar).Value = ComboBox2.Text
.Parameters.AddWithValue("@note_m", OleDbType.VarChar).Value = TextBox3.Text
.Parameters.AddWithValue("@note1", OleDbType.VarChar).Value = "1"
EndrWithers.AddWithValue("@note2", OleDbType.VarChar).Value = "0"
Tryrameters.AddWithValue("@note3", OleDbType.VarChar).Value = "0"
Ifarameters.AddWiThenlue("@fr3", OleDbType.VarChar).Value = TextBox8.Text
End With
Try
If Conn.State = 1 Then Conn.Close()
Conn.Open()
CmdInsert.ExecuteNonQuery()
Con.Close()
MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
CmdInsert = Nothing
Catch ex As Exception
Conn.Close()
MsgBox(Err.Description, MsgBoxStyle.Information)
Finally
If Conn.State = ConnectionState.Open Then Conn.Close()
End Try
End Subارجو مساعدتي بحل هذه المشكله