store date value into database (vb.net)

[taufik]

Hi,

I have problem with my simple program. Actually, I try to store date value in form of date format (mm/dd/yyyy). I got message that inform me "number of query values and destination fields are not the same". I provide example coding below to help you all understand. Please help me, it urgent....

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oConn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & "C:\Documents and Settings\Crazy_Frog\My Documents\Visual Studio Projects\SportPlanet1\Data\spData.mdb")
Dim oApt As New OleDbDataAdapter("SELECT [tbl_name] FROM [database_name]", oConn)
Dim sql As String = String.Empty
Try
If _id = 0 Then
sql = "INSERT INTO [database_name] Values('" & TextBox4.Text & "')"
End If
oConn.Open()
Dim oComm As New OleDbCommand(sql, oConn)
oComm.ExecuteNonQuery()
oConn.Close()
MsgBox("Data Save.")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

[SharpDeveloper]

Hello
The SQL Insert Statement Syntax is like this
Statement I
INSERT INTO TABLENAME(COLNAME) VALUES(COL_VALUE)
Statement II
INSERT INTO TABLENAME VALUES(COL_VALUE)
The above query works without column name if you are specifying all the column values in the VALUES.

Seems in this case
sql = "INSERT INTO [database_name] Values('" & TextBox4.Text & "')"

the table database_name has more than one column.
So use
sql = "INSERT INTO database_name(Column_name) Values('" & TextBox4.Text & "')"

Hope this helps you.
Happy Programming!

Hi,

I have problem with my simple program. Actually, I try to store date value in form of date format (mm/dd/yyyy). I got message that inform me "number of query values and destination fields are not the same". I provide example coding below to help you all understand. Please help me, it urgent....

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oConn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & "C:\Documents and Settings\Crazy_Frog\My Documents\Visual Studio Projects\SportPlanet1\Data\spData.mdb")
Dim oApt As New OleDbDataAdapter("SELECT [tbl_name] FROM [database_name]", oConn)
Dim sql As String = String.Empty
Try
If _id = 0 Then
sql = "INSERT INTO [database_name] Values('" & TextBox4.Text & "')"
End If
oConn.Open()
Dim oComm As New OleDbCommand(sql, oConn)
oComm.ExecuteNonQuery()
oConn.Close()
MsgBox("Data Save.")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

[Plater]

There are a number of good examples on how to use INSERT.
This one is pretty good at explaining how to insert data into different columns:
http://www.w3schools.com/sql/sql_insert.asp