请教Dataset数据表向SQL数据库插入数据?实在没有分了?我会下次给?

[szyyx]

请朋友们帮助：
主要是由DataSet中的TBR数据表全部插入到SQL数据库中的TBR表中,(SQLTBR表是空表,只有列名)但不知那里出问题了,请
各位高手帮忙看看,或者有更好的方法,小弟很感激!
Dim ds As New DataSet
Dim dt As New DataTable("TBR")
Dim oleadapt As OleDbDataAdapter = New OleDbDataAdapter
sql = "insert TBR(pt,tem,qty,pp,sp)"
oleadapt.InsertCommand = New OleDbCommand(sql, conn)
oleadapt.InsertCommand.ExecuteNonQuery()

[踏平扶桑]

TBR表没数据吧？

[tiankj]

sql = "insert TBR(pt,tem,qty,pp,sp)values(0,0,0,0,0)"

[szyyx]

values(0,0,0,0,0)" 这里怎样才能把所有的行的值变成变量?

[JoineChoi]

1.不使用Dataset:
dim insertString as string = "insert ……"
dim connectionString as string = "provider=……"

dim connection as new OleDbConnection(connectionString)
dim oleCommand as new oleDbCommand(insertString,connection)

connection.open()
oleCommand.ExecuteNonQuery()
connection.close()

2.如果是要把更改数据后的Dataset返回到数据库中：
（如果你只是操作一个表，用DataTable就可以了，不要认为一定要有Dataset才可以用DataTable）
dim dt as new DataTable("forUpdate")=Dataset.Tables[0].getChanges()//如果之前你用的是DataTable,就直接用DataTable.getChanges()
oleAdapter.upDate(dt);//oleAdapter是之前你用来Fill(DS)的那个Adapter

[JoineChoi]

sql = "insert TBR(pt,tem,qty,pp,sp)values('" & a "','" & b & "','" & c & "','" & "d'"

如果value是文本类型，就要用' ' 单引号括起来，就像上面那样。如果是数字型的就不用''：

sql = "insert TBR(pt,tem,qty,pp,sp)values(" & a "," & b & "," & c & "," & "d"

[szyyx]

有没有更好的方法呀,我就是想把DATASET的DataTable的TBR的行各列全部数据全部插入到ＳＱＬ的对应表里！