01-08-13, 07:05 PM
اعتقد ان هذا الكود ثوف يسهل الامر عليك
هذا الكود لادخال البيناتالى فى اول تكست و الثانى مع الثالث و الرابع و الخامس الخخخخ مثلآ مثل هذه الطريقة لو تاريخ [الحمد الله الخميس 2013/8/1]
اضف
يمكنك ايضن اذا ضفت vbNewLine ثوف يكون مثل هذا [2013/8/1]
[الخميس]
[الحمد الله]
هذا هو الكود
هذا الكود لادخال البيناتالى فى اول تكست و الثانى مع الثالث و الرابع و الخامس الخخخخ مثلآ مثل هذه الطريقة لو تاريخ [الحمد الله الخميس 2013/8/1]
اضف
كود :
Imports System.Data.Odbcكود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const ConnectionString As String = "Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\somepath\mydb.mdb;"
Dim conn As OdbcConnection = New OdbcConnection(ConnectionString)
Dim cmd As OdbcCommand = New OdbcCommand("INSERT INTO accdb (GName, LName, Age) VALUES (?, ?, ?)", conn)
cmd.Parameters.Add(TextBox1.Text & TextBox2.Text + "@GName", OdbcType.VarChar, 255).Value = TextBox3.Text
cmd.Parameters.Add(TextBox1.Text & TextBox2.Text + "@LName", OdbcType.DateTime).Value = TextBox4.Text
cmd.Parameters.Add(TextBox1.Text & TextBox2.Text + "@Age", OdbcType.VarChar, 255).Value = TextBox5.Text
Try
conn.Open()
cmd.ExecuteNonQuery()
Catch ex As OdbcException
Throw ex
Finally
conn.Close()
End Try
End Sub[الخميس]
[الحمد الله]
هذا هو الكود
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const ConnectionString As String = "Driver={Microsoft Access Driver (*.mdb)};Dbq=c:\somepath\mydb.mdb;"
Dim conn As OdbcConnection = New OdbcConnection(ConnectionString)
Dim cmd As OdbcCommand = New OdbcCommand("INSERT INTO accdb (GName, LName, Age) VALUES (?, ?, ?)", conn)
cmd.Parameters.Add(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & "@GName", OdbcType.VarChar, 255).Value = TextBox3.Text
cmd.Parameters.Add(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & "@LName", OdbcType.DateTime).Value = TextBox4.Text
cmd.Parameters.Add(TextBox1.Text & vbNewLine & TextBox2.Text & vbNewLine & "@Age", OdbcType.VarChar, 255).Value = TextBox5.Text
Try
conn.Open()
cmd.ExecuteNonQuery()
Catch ex As OdbcException
Throw ex
Finally
conn.Close()
End Try
End Sub