VB2005新增数据到DB的问题

[shaiha]

原本这句应该是这样写的
insertCmd = "Insert Into Table(no2, no3, no4, no5) Values(@no2, @no3, @no4, @no5)"

但我想用ComboBox1来选择我想用的table,然后输入数据,应该怎么写?
是不是该这样改,但是好像不行
insertCmd = "Insert Into ComboBox1.text(no2, no3, no4, no5) Values(@no2, @no3, @no4, @no5)"

Dim connStr, insertCmd As String
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2.mdb"
insertCmd = "Insert Into table(no2, no3, no4, no5) Values(@no2, @no3, @no4, @no5)"
Dim conn As OleDbConnection, cmd As OleDbCommand
conn = New OleDbConnection(connStr)
conn.Open()
cmd = New OleDbCommand(insertCmd, conn)
cmd.Parameters.Add(New OleDbParameter("@no2", OleDbType.Integer))
cmd.Parameters.Add(New OleDbParameter("@no3", OleDbType.Integer))
cmd.Parameters.Add(New OleDbParameter("@no4", OleDbType.Integer))
cmd.Parameters.Add(New OleDbParameter("@no5", OleDbType.Integer))
cmd.Parameters("@no2").Value = Val(TextBox1.Text)
cmd.Parameters("@no3").Value = Val(TextBox2.Text)
cmd.Parameters("@no4").Value = Val(TextBox3.Text)
cmd.Parameters("@no5").Value = Val(TextBox4.Text)
cmd.ExecuteNonQuery()
conn.Close()

[pxjhy]

您要拼成一句语句才行。

insertCmd = "Insert Into" & ComboBox1.text & "(no2, no3, no4, no5) Values(@no2, @no3, @no4, @no5)"

试试吧，可能不一定行，但思路是这样的。

[shaiha]

谢谢楼上的,可是不行,运行后出现INSERT INTO 陈述式的语法错误。

[seewp]

insertCmd = "Insert Into"' & ComboBox1.text & '"(no2, no3, no4, no5) Values(@no2, @no3, @no4, @no5)"

[hlm2czy1314]

ComboBox1.DataSource = ds.Tables("表名")
ComboBox1.DisplayMember = "列"
ComboBox1.ValueMember = "列"
ComboBox1.DataBindings.Add("SelectedValue", ds, "表名.列"）

[tjficcbw]

[vb.net code]

insertCmd = "Insert Into " & ComboBox1.text & " (no2, no3, no4, no5) Values(@no2, @no3, @no4, @no5)"

[/code]

或
[vb.net code]
dim a as string="a"
dim b as string="b"
dim c as string="c"
dim d as string="d"

insertCmd = "Insert Into " & ComboBox1.text & " (no2, no3, no4, no5) Values('" & a & "','" & b & "','" & c & "','" & d & "')"

[/code]

[wanbolantian]

我也想知道，帮你顶

[wanbolantian]

再顶啊

[yanlongwuhui]

no2,no3,no4,no5字段为字符型时
insertCmd = "Insert Into " & ComboBox1.text & " (no2, no3, no4, no5) Values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"