16,717
社区成员
发帖
与我相关
我的任务
分享Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim path As String = Application.StartupPath.ToString & "temp.mdb"
Dim myconnection As New OleDb.OleDbConnection("provider=microsoft.jet.OLEDB.4.0;" & "data source=temp.mdb") '
Dim strName As String = Me.ListBox1.Text.ToString
Dim strsql As String
strsql = "insert into info(姓名,[date]) VALUES('" + strName + "',#2008-4-10 19:26:06#)"
MsgBox(strsql)
Dim mycommand As New OleDb.OleDbCommand(strsql, myconnection)
myconnection.Open()
mycommand.ExecuteReader() 'mycommand.ExecuteNonQuery()
myconnection.Close()
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim path As String = Application.StartupPath.ToString & "temp.mdb"
Dim myconnection As New OleDb.OleDbConnection("provider=microsoft.jet.OLEDB.4.0;" & "data source=temp.mdb") '
Dim strName As String = Me.ListBox1.Text.ToString
Dim strsql As String
strsql = "insert into info(姓名) VALUES('" + strName + "')"
Dim mycommand As New OleDb.OleDbCommand(strsql, myconnection)
myconnection.Open()
mycommand.ExecuteReader() 'mycommand.ExecuteNonQuery()
myconnection.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim UserID As Integer = 100
Dim RecordDate As Date = #4/9/2008#
Dim SQLString As String = String.Format("INSERT INTO Record (UserID,Date) VALUES({0},#{1}#)", UserID, RecordDate)
Console.WriteLine(SQLString)
End Sub