datarow

hao19819800311 2008-05-05 03:10:57
Dim myconn1 As OleDbConnection = New OleDbConnection(strcon)
myconn1.Open()
Dim da As OleDbDataAdapter = New OleDbDataAdapter("select * from login", myconn1)
Dim ds As DataSet = New DataSet
Dim objcb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
Dim table1 As DataTable = New DataTable

da.Fill(ds, "login")
table1 = ds.Tables("login")
Dim objrow As Data.DataRow
objrow = table1.NewRow
objrow("user") = TextBox1.Text.Trim
objrow("name") = TextBox2.Text.Trim
objrow("pwd") = TextBox3.Text.Trim
objrow("jb") = TextBox4.Text.Trim
table1.Rows.Add(objrow)
da.Update(ds, "login")
...全文
91 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
hao19819800311 2008-05-05
  • 打赏
  • 举报
回复
对不起,我忘了,我刚学vb.net,问题是在运行到da.updata是出现错误,报insert into错误
llsus 2008-05-05
  • 打赏
  • 举报
回复
这问题是怎么问的?连个问题都懒得写,还来这里干嘛啊!

16,555

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧