System.Data.SqlClient.SqlException: 第 1 行: '' 附近有语法错误。
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Dim tbname As String = Session("dtname")
conn = New SqlConnection("server=localhost;database=cjglxt;uid='sa';pwd='lwqyll1353'")
sqldap = New SqlDataAdapter("select * from '" + tbname + "'", conn)
ds = New DataSet
sqldap.Fill(ds, "dtchengji")
Session("MyData") = ds.Tables("dtchengji")
Else
dtchengji = Session("mydata")
End If
End Sub
运行时提示:System.Data.SqlClient.SqlException: 第 1 行: '' 附近有语法错误。错误。
另外:我想实现:运行时创建一个datatable ,往里面添加数据。然后点击保存按钮时,把datatable里面的所有数据存在数据库里面。请问我这样做行不行:
Private Sub Btnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnext.Click -----往数据表里面添加数据
dtchengji = CType(Session("mydata"), DataTable)
rows = dtchengji.NewRow
rows.Item("banji") = ddlnianji.SelectedItem.Value.ToString & "." & ddlbanji.SelectedItem.Value.ToString
rows.Item("xuehao") = CLng(Txuehao.Text)
rows.Item("xingming") = Txingming.Text
rows.Item("chengji") = CDec(Tchengji.Text)
dtchengji.Rows.Add(rows)
dtchengji.AcceptChanges()
Session("mydata") = dtchengji
Txuehao.Text = CStr(CLng(Txuehao.Text) + 1)
End Sub
Private Sub btsave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btsave.Click ------往数据库里面倒的数据
Dim commandstr As New SqlCommandBuilder(sqldap)
sqldap.insertCommand = commandstr.insertCommand
sqldap.Update(ds, "dtchengji")
End Sub