首先你要测试下你的程序能不能连接到数据库;
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:申请域名、雅安服务器托管、营销软件、网站建设、鄂尔多斯网站维护、网站推广。
若数据库连接成功了,那么就是insert into 语句有问题;
在调试模式下,你插入的数据库内容通过查表是看不出来的;内容没有写入到表中;
oledb就不用eof和bof了,使用OleDbDataReader读的话就是一条一条读,从第一条开始
Dim rd As OleDbDataReader
If rd.Read = True Then
g_ServerInfo.sID = rd("Id")
End If
用read判断,没记录了就false了
用DataSet读就更省事了
Dim ds As DataSet
ds.Tables("tbInfo").Rows.Count是行数,直接for循环就完了
Dim _datatable As New System.Data.DataTable() Dim _oledbdataadapter As New OleDbDataAdapter("select 输出商品条码,商品数量,商品名称 from 商品信息 WHERE 商品信息.商品编号='" textbox2.Text.Trim() "'", mycon) _oledbdataadapter.Fill(_datatable) DataGridView2.DataSource = _datatable
去掉objconn.Open()和 objconn.Close(),因为OleDbDataAdapter的Fill方法会自动开启连接和关闭连接
没有没有数据看是否 DBDB表中本来就没有数据?可以用DataTable验证
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strconn As String
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Nutrition\Nutritions.mdb;Jet OLEDB:Database Password=123456"
Dim objconn As New OleDb.OleDbConnection(strconn)
Dim strsql = "select * from DBDB"
Dim objadap As New OleDb.OleDbDataAdapter(strsql, objconn)
Dim tb As New DataTable
objadap.Fill(tb)
DataGridView1.DataSource = tb
End Sub
2、Access不是一种存储格式,是一种软件。 请大家严格区分Access软件与MDB 格式。以下的语句是错误的:“我用VB来开发MIS系统,数据存储在ACCESS中。”。VB下调用MDB格式(或JET DB)只是调用一种格式的文件而已,并没有调用到 Access,其实官方说法叫“VB的JET应用”。另外,MDB 格式的文件也可以被其他开发工具,比如DELPHI/PB/C/PHP/ASP/CGI 调用。但是被调用的只是MDB文件,很多ACCESS 软件所具有的功能,这些开发工具是无法调用的。 也正因为如此,类似这样的问题“我的系统中没有安装OFFICEACCESS,是否能用ASP调用ACCESS 数据库呢?”,答案是:当然可以,其实你根本没有使用ACCESS 这个软件,只是使用了MDB 这种数据库格式,而这种格式只要系统中有OLEDB引擎就可以支持。WINDOWS98以及以上版本的WINDOWS操作系统都内置支持OLEDB引擎。NET程序必须在 .NETFRAMEWORK下才能运行,而能够运行 .NETFRAMEWORK 的操作系统中默认都已经安装了MDAC 无需再次安装,而且在安装 .NETFRAMEWORK的时候也会有检查MDAC的功能。记住,