VB 保存数据
来源:百度知道 编辑:UC知道 时间:2024/05/24 13:14:39
为你们两个的回答都没有通过呢?不可以啊!!!!
'设置个保存按钮:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aa, bb, cc,strSql As String
aa= textbox1.Text
bb= textbox2.Text
cc= textbox3.Text
strSql = "insert into TableName Values(?,?,?)"
'插入数据
Dim cn As New OleDbConnection("Provider = SQLOLEDB.1;Data Source=localhost;Initial Catalog = 数据库名;User ID = sa;Password=;")
cn.Open()
Dim cmd As New OleDbCommand(strSql, cn)
cmd.Parameters.Add(New OleDbParameter("列名1", OleDbType.VarChar, 50))
cmd.Parameters.Add(New OleDbParameter("列名2", OleDbType.VarChar, 50))
cmd.Parameters.Add(New OleDbParameter("列名3", OleDbType.VarChar, 50))
cmd.Parameters("列名1").Value = aa
cmd.Parameters("列名2").Value = bb
cmd.Parameters(&qu