Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strprov As String = "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("database.mdb") Dim ds As DataSet = New DataSet() adocmd = New OleDbDataAdapter("select * from datasour", strprov) adocmd.Fill(ds, "datasour") mytable = ds.Tables.Item(0) Dim row As DataRow row = mytable.NewRow With row .Item(0) = Trim(DropDownList1.SelectedItem.Text) .Item(1) = Trim(TextBox1.Text) .Item(2) = Trim(TextBox2.Text) .Item(3) = Trim(TextBox3.Text) .Item(4) = Trim(TextBox4.Text) .Item(5) = Trim(TextBox5.Text) End With mytable.Rows.Add(row) cmd = New OleDbCommandBuilder(adocmd) adocmd.Update(ds, "datasour")===============运行到这里就出错了. Response.Write("添加用户成功") End Sub
Dim strprov As String = "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("database.mdb")
Dim ds As DataSet = New DataSet()
adocmd = New OleDbDataAdapter("select * from datasour", strprov)
adocmd.Fill(ds, "datasour")
mytable = ds.Tables.Item(0)
Dim row As DataRow
row = mytable.NewRow
With row
.Item(0) = Trim(DropDownList1.SelectedItem.Text)
.Item(1) = Trim(TextBox1.Text)
.Item(2) = Trim(TextBox2.Text)
.Item(3) = Trim(TextBox3.Text)
.Item(4) = Trim(TextBox4.Text)
.Item(5) = Trim(TextBox5.Text)
End With
mytable.Rows.Add(row)
cmd = New OleDbCommandBuilder(adocmd)
adocmd.Update(ds, "datasour")===============运行到这里就出错了.
Response.Write("添加用户成功")
End Sub
==========================我出现过,程序在E盘就不行,E盘ntfs 般到D盘就Ok了,fat32D盘是
==================================出现其它错误.这个方法行不通还有,我类似的代码在WINDOW应用程序是可能通过的.
段 'datasour.name' 不能是零长度的字符串。
说明: 执行当前 Web 请求期间,出现未处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.Data.OleDb.OleDbException: 字段 'datasour.name' 不能是零长度的字符串。源错误:
行 70: mytable.Rows.Add(row)
行 71: cmd = New OleDbCommandBuilder(adocmd)
行 72: adocmd.Update(ds, "datasour")=====================这里出错.
行 73: Response.Write("添加用户成功")
行 74: End Sub
源文件: C:\Inetpub\wwwroot\bail\head1.aspx.vb 行: 72