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 SubPrivate 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
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 SubPrivate 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
解决方案 »
- Asp.net 验证码问题
- 过年好,求一个排列组合算法
- 为什么自定义类型没有写公开属性,就不能绑定到GridView上面........................
- IIS 文件夹权限问题
- 怎么设置微软的那个TREEVIEW的字体和字体大小?
- 在ASP。NET 2。0 中的URL映射(URL Mapping)
- 一个简单的困扰了我一个晚上的问题,请大伙帮忙看看 :(
- 如何封闭一个WinForm的UserControl放在IE中?
- 暴郁闷的ASP.NET的WEB安装问题,版主、微软专家、思归 快来看,分不够可以再加!!!
- 求指导,Jqurey EasyUI DataGrid分页绑定的问题
- 为什么无法获取ListBox的Text值?
- 用户控件中的textbox取不到更新的值?
---》("server=localhost;database=cjglxt;uid=sa;pwd=lwqyll1353")
照你的改还是不好使。我把sqldap = New SqlDataAdapter("select * from '" + tbname + "'", conn)
中的tbname变量变成具体数据表名好使
sqldap = New SqlDataAdapter("select * from " + tbname ", cnn)
sqldap = New SqlDataAdapter("select * from " + tbname , cnn)
sql可能不支持中文。所以出错