VBNET数据库操作
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
上添加一个DataGrid控件命名为DataGrid1.在窗体加载事件Load里写入以下代码：
Dim 数据库连接 As New OleDb.OleDbConnection(&uot;Provider=SLOLEDB;User ID=sa;Password=;Initial Catalog=FKapp;data Source=.&uot;)
' 这里<连接字符串>&uot;'<连接字符串>可以自动生成 (Connect Timeout=30)超时时间30秒
' 或 数据库连接.ConnectionTimeout =30
Dim 数据适配器 As New OleDb.OleDbDataAdapter(&uot;select * from tab_load&uot;, 数据库连接) ' 这里是SL语句
Dim 数据集 As New DataSet '定义一个数据集
数据适配器.Fill(数据集, &uot;tab_load&uot;) '加载数据到数据集
DataGrid1.DataSource = 数据集.Tables(&uot;tab_load&uot;) '显示出数据
MsgBox(&uot;这是数据集中第 0 张表的 第2行的name列的数据：&uot; & 数据集.Tables(0).Rows(2)(&uot;name&uot;))
MsgBox(&uot;这是数据集中第 0 张表的 第0行第0列的数据：&uot; & 数据集.Tables(0).Rows(0).Item(0)) MsgBox(&uot;这是数据集中tab_load表的 第1行的password列的数据：&uot; & 数据集.Tables(&uot;tab_load&uot;).Rows(1).Item(&uot;password&uot;))
' 连接SL数据库的方法(二) [采用数据读取器]
'=====================================================
' 在窗体上添加一个ComboBox控件命名为ComboBox1.在窗体加载事件Load里写入以下代码： '创建连接
Dim 数据库连接 As New OleDb.OleDbConnection(&uot;Provider=SLOLEDB;User ID=sa;Password=;Trusted_Connection=yes;Initial Catalog=FKapp;data Source=.&uot;)
'连接打开
数据库连接.Open()
'定义SL查询语句
Dim SL语句 As OleDb.OleDbCommand = New OleDb.OleDbCommand(&uot;select * from tab_load&uot;, 数据库连接)
'读取数据源行记录
Dim 数据读取器 As OleDb.OleDbDataReader
数据读取器 = SL语句.ExecuteReader '发送SL语句
Do While 数据读取器.Read '循环获得记录
boBox1.I