重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
首先你要测试下你的程序能不能连接到数据库;
创新互联建站从2013年创立,是专业互联网技术服务公司,拥有项目成都网站建设、做网站网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元张北做网站,已为上家服务,为张北各地企业和个人服务,联系电话:18980820575
若数据库连接成功了,那么就是insert into 语句有问题;
在调试模式下,你插入的数据库内容通过查表是看不出来的;内容没有写入到表中;
网页链接
需要下载 SQLITE OLEDB 的数据库驱动连接才行的。调用方法和其他OLEDB一样。
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
conn.Close()
cmd.Connection = myconn
cmd.CommandText = "select * FROM address WHERE id,name='*************此处看你的
conn.Open()
Dim mydatareader As OleDbDataReader
mydatareader = cmd.ExecuteReader()
mydatareader.Read()
Me.textbox1.Text = mydatareader.Item("id")
Me.textbox2.Text = mydatareader.Item("name")