收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 1513|回复: 2

[数据库] 谁帮忙看一下,我这代码错哪儿了?为啥添不进去记录啊。VB数据库问题。

[复制链接]
发表于 2013-1-24 18:12:32 | 显示全部楼层 |阅读模式
            Dim cn As System.Data.OleDb.OleDbConnection   'cn是数据库
            Dim da As System.Data.OleDb.OleDbDataAdapter  'da是桥梁
            Dim ds As New System.Data.DataSet             'ds是内存中的数据库
            Dim TableName As String = "无道询"            'TableName是表的名称
            '数据库初始化

            cn = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data source=D:\VB2005\稽查大队管理系统\稽查大队管理系统\稽查大队管理系统\jcd.mdb")
            cn.Open()
            'da建立数据表桥梁
            da = New System.Data.OleDb.OleDbDataAdapter("select * from 无道询", cn)
            'ds建立内存中的数据库
            ds = New DataSet
            'da调入。于是可以在da中操作了。
            da.Fill(ds, TableName)


            If cn.State <> 0 Then
                Dim a
                a = MsgBox("数据库连接成功,你要插入数据吗?", vbYesNo, "提示")
                If a = vbYes Then
                    'dr是新行,dt是整个表

                    Dim dr As DataRow
                    Dim dt As DataTable
                    dt = ds.Tables(TableName)
                    dr = dt.NewRow   '初始化一下

                    Dim wdtime As String
                    wdtime = DateTimePicker1.Text
                    dr("案件编号") = Xwzbianhao.Text
                    dr("时间") = wdtime
                    '用新的值填补各字段
                    dr("地点") = TextBox2.Text
                    dr("询问人") = ComboBox1.Text
                    dr("记录人") = ComboBox2.Text
                    dr("被询问人") = TextBox3.Text
                    dr("性别") = ComboBox8.Text
                    dr("与案件关系") = ComboBox3.Text
                    dr("身份证号") = TextBox4.Text
                    dr("电话") = TextBox5.Text
                    dr("工作单位") = TextBox6.Text
                    dr("车号") = TextBox22.Text
                    dr("地址") = TextBox7.Text
                    dr("检查人员1") = ComboBox3.Text
                    dr("执法证号1") = TextBox2.Text
                    dr("检查人员2") = ComboBox4.Text
                    dr("执法证号2") = TextBox2.Text
                    dr("告知1") = TextBox16.Text
                    dr("答告知1") = TextBox17.Text
                    dr("告知2") = TextBox19.Text
                    dr("答告知2") = TextBox18.Text
                    dr("告知3") = TextBox21.Text
                    dr("答告知3") = TextBox20.Text
                    dr("问1") = TextBox8.Text
                    dr("答1") = TextBox9.Text
                    dr("问2") = TextBox11.Text
                    dr("答2") = TextBox10.Text
                    dr("问3") = TextBox13.Text
                    dr("答3") = TextBox12.Text
                    dr("问4") = TextBox15.Text
                    dr("答4") = TextBox14.Text
                    dr("告知") = TextBox1.Text
                    dr("答告") = TextBox23.Text

                    dt.Rows.Add(dr)
                    '
                    Dim TableInsert As New OleDb.OleDbCommand
                    TableInsert.Connection = cn

                    Dim intostr As String
                    intostr = "INSERT INTO 无道询(案件编号,时间,地点,询问人,记录人,被询问人,性别,与案件关系,身份证号,电话,工作单位,车号,地址,检查人员1,执法证号1,检查人员2,执法证号2,告知1,答告知1,告知2,答告知2,告知3,答告知3,问1,答1,问2,答2,问3,答3,问4,答4,告知,答告) VALUES('&Xwzbianhao.Text&','&wdtime&','&TextBox2.Text&','&ComboBox1.Text&','&ComboBox2.Text&','&TextBox3.Text&','&ComboBox8.Text&','&ComboBox3.Text&','&TextBox4.Text&','&TextBox5.Text&','&TextBox6.Text&','&TextBox22.Text&','&TextBox7.Text&','&ComboBox3.Text&','&TextBox2.Text&','&ComboBox4.Text&','&012&','&ComboBox6.Text&','&548&','&TextBox16.Text&','&TextBox17.Text&','&TextBox19.Text&','&TextBox18.Text&','&TextBox21.Text&','&TextBox20.Text&','&TextBox8.Text&','&TextBox9.Text&','&TextBox11.Text&','&TextBox10.Text&','&TextBox13.Text&','&TextBox12.Text&','&TextBox15.Text&','&TextBox14.Text&','&TextBox1.Text&','&TextBox23.Text&')"

                    TableInsert.CommandText = intostr


                    da.InsertCommand = TableInsert
                    'da.Fill(ds, TableName)


                    'da.Update(ds, TableName)
                    cn.Close()


有点乱啊,不好意思。从来没接触过数据库,没想到这么麻烦。
 楼主| 发表于 2013-1-24 18:13:19 | 显示全部楼层
点击按钮没用,添加不进去记录。
回复 支持 反对

使用道具 举报

发表于 2013-1-25 07:28:52 | 显示全部楼层
把倒数第二行那个da.update前面的单引号,去掉,试试。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-9-24 06:13 , Processed in 0.115920 second(s), 8 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表