ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 795|回复: 2

[求助] 在VB.NET中,如何向access数据库录入数据类型的数据?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-3-12 01:06 | 显示全部楼层 |阅读模式
各位老师,请教一个问题:
我现在正在编辑一个程序,一切都进展挺顺利,但忽然遇见一个问题,发现我向access数据库中某个字段录入数字数据,该字段如果是短文本类型的话,能成功录入。但后续如果通过SQL计算该字段的平均值,系统却一直报错。貌似短文本类型的数据不支持计算平均值。
但如果我把类型改为数字类型,平均值可以计算了,但又变成无法录入。
头疼,百度了半天都不得其所以然,恳请老师指教,看是否我的SQL语句有问题。
WindowsApp1.zip (405.51 KB, 下载次数: 1)
感激不尽~~


例如的SQL:
        Dim constring As String = "provider=microsoft.ace.oledb.12.0;data source =C:\Users\Ar\Desktop\Project.accdb"
        Dim conn As New OleDb.OleDbConnection(constring)
        conn.Open()
        TextBox8.Text = 10/ 50 * 100 & "%"
        Dim C2 As New OleDb.OleDbCommand("update [" & ComboBox1.Text & "] set PI通过率='" & TextBox8.Text & "' where 姓名='" & TextBox5.Text & "'", conn)    -----》就是这,如果设置PI通过率为数字类型,执行时就会报错了。改成文本类型就OK
        C2.ExecuteNonQuery()
        MsgBox("已更新成功")
        conn.Close()

计算平均值的代码:
        Dim constring As String = "provider=microsoft.ace.oledb.12.0;data source =C:\Users\Ar\Desktop\Project.accdb"
        Dim conn As New OleDb.OleDbConnection(constring)
        Dim C1 As New OleDb.OleDbCommand("select avg(PI通过率) from 项目二", conn)
        conn.Open()
        TextBox9.Text = Math.Round(C1.ExecuteScalar, 2) * 100 & "%"
        Dim c2 As New OleDb.OleDbCommand("select 姓名 from 信息表 where 工号 = " & TextBox10.Text, conn)
        TextBox11.Text = c2.ExecuteScalar
        c2.Dispose()
        C1.Dispose()
        conn.Close()


TA的精华主题

TA的得分主题

发表于 2020-3-12 07:54 来自手机 | 显示全部楼层
OleDb.OleDbCommand("update [" & ComboBox1.Text & "] set PI通过率='" & TextBox8.Text & "' where 姓名='" & TextBox5.Text & "'", conn)  
改成
set PI通过率=" & TextBox8.Text & " where 姓名='" & TextBox5.Text & "'", conn)  
我记得 数字 类型的 不需要定界符 单引号的

TA的精华主题

TA的得分主题

发表于 2020-3-12 07:56 来自手机 | 显示全部楼层
zpy2 发表于 2020-3-12 07:54
OleDb.OleDbCommand("update [" & ComboBox1.Text & "] set PI通过率='" & TextBox8.Text & "' where 姓名= ...

另外,最好是使用参数化查询 比较方便,你可以搜一下,也可以预防 SQL注入
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 22:13 , Processed in 0.045654 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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