大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
添加DataGridView,将数据表绑定上,这个应该会吧,DataGridView添加行处理事件,事件里提取内容到文本框,也不需要确定按钮,只需要增删改查四个按钮就能完成全部操作,不会再问
创新互联是一家集网站建设,武汉企业网站建设,武汉品牌网站建设,网站定制,武汉网站建设报价,网络营销,网络优化,武汉网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。
这里以OERACLE数据库为例 :
Provider=MSDAORA;data source =主机名:1521/ORCL;User ID=system;Password=ORACLE;Unicode=True
Dim myConn As Data.OleDb.OleDbConnection
myConn = New System.Data.OleDb.OleDbConnection()
myConn.ConnectionString = strCon
myConn.Open()
判断是否存在查询结果这个有点问题!
修改If MyDataSet.Tables.Count 0 Then 为 If ds.Tables(0).Rows.Count 0 Then
Private Sub DataGridfill(ByVal CmdText As String)
Dim engin As New MyDbEngine
Dim MyDataSet As DataSet
engin.OpenConnect()
MyDataSet = engin.ExecuteDataSet(cmdtext)
engin.CloseConnect()
If ds.Tables(0).Rows.Count 0 Then
Me.DataGridView1.DataSource = MyDataSet.Tables(0)
'把数据写入到文本框
For i = 0 To DataGridView1.RowCount - 1
Panel1.Controls.Item(i).Text = DataGridView1.CurrentRow.Cells.Item(i).Value.ToString
Panel1.Controls.Item(i).Enabled = False
Next
Else
MsgBox("没有查询结果")
End If
End Sub
如果楼主熟悉VB6,可以直接在项目中添加ADODB的Com引用,这样你就可以像VB6那样操作数据库了!
另外
.NET Framework中连接数据库要用到ADO.NET。如果要操作Access数据库,要用到System.Data.OleDb命名空间下的许多类。
比如按楼主所说,“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”:
'首先导入命名空间
Imports System.Data
Imports System.Data.OleDb
'然后在某一个事件处理程序中写:
Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=数据库.accdb;Jet OLEDB:Database Password=MyDbPassword")
Dim command As New OleDbCommand("Select * From 数据表", conn)
conn.Open() '打开数据库连接
Dim reader As OleDbDataReader = command.ExecuteReader() '执行SQL语句,返回OleDbDataReader 对象
Do While reader.Read() '读取一条数据
textbox1.Text += reader("一些数据") VbCrLf
Loop
reader.Close() '关闭OleDbDataReader
conn.Close() '关闭连接