这段代码哪儿错了。说是INSERT INTO 语句的语法错误。

显示全部楼层 · 2009-7-30 17:54:09

Imports System.IO
Imports System
Imports System.Data
Imports System.Data.OleDb
Partial Class DW_add

Inherits System.Web.UI.Page

Private cnS As String = System.Web.Configuration.WebConfigurationManager.ConnectionStrings("HDConnectionString").ToString

Private cn As New OleDbConnection(cnS)

Private DWDataAdapter As New OleDbDataAdapter

Private DWTable As New DataTable

Private DWCommand As New OleDbCommand

Private DWCmdBuilder As New OleDbCommandBuilder

Private temp1 As String = "select * from DW"

Private DS_dw As New DataSet()

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

DWCommand = New OleDbCommand(temp1, cn)

DWDataAdapter = New OleDbDataAdapter(DWCommand)

DWCmdBuilder = New OleDbCommandBuilder(DWDataAdapter)

DS_dw.Clear()

DWDataAdapter.Fill(DS_dw, "DW")

DWTable = DS_dw.Tables("DW")

Dim aNewRow As DataRow

aNewRow = DWTable.NewRow

aNewRow.Item("Name") = TextBox1.Text.ToString.Trim

aNewRow.Item("Leibie") = DropDownList1.SelectedValue.ToString.Trim

aNewRow.Item("Password") = "123456"

aNewRow.Item("QX") = 50

DWTable.Rows.Add(aNewRow)

Try

DWDataAdapter.Update(DS_dw, "DW")

Catch ex As Exception

showX.Text = ex.Message

End Try

End Sub

千问 · 2009-7-30 17:54:09

没看到INSERT INTO 语句在那里哦...