VB6.0怎么连接ACCESS数据库?
VB6.0用哪种方式连接ACCESS最好呀?因为第一次用VB做东西,所以很菜呀.看了一本书上说了很多种办法(ADO控件编程,ADO对象编程,DAO对象编程,DAO控件编程...
VB6.0用哪种方式连接ACCESS最好呀?因为第一次用VB做东西,所以很菜呀.
看了一本书上说了很多种办法(ADO控件编程,ADO对象编程,DAO对象编程,
DAO控件编程,OLEDB,ODBC等等).我看得都糊涂了.望大峡讲讲它们的区别?
我想问问哪种方式最简单易学,最好理解呀?最好能详细点,能给代码(注释)
就最好拉!
鞠躬! 谢谢啦!!! 展开
看了一本书上说了很多种办法(ADO控件编程,ADO对象编程,DAO对象编程,
DAO控件编程,OLEDB,ODBC等等).我看得都糊涂了.望大峡讲讲它们的区别?
我想问问哪种方式最简单易学,最好理解呀?最好能详细点,能给代码(注释)
就最好拉!
鞠躬! 谢谢啦!!! 展开
3个回答
展开全部
访问的数据用DataGrid显示
以下是设置
添加DataGrid,adodc控件,添加www.mdb数据库(菜单栏中的外接程序->可视化数据管理器,文件保存在同一文件夹下)
DataGrid的datasource属性为adodc1
adodc1的connectionstring属性为Provider=Microsoft.Jet.OLEDB.4.0;Data Source=www.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False
adodc1的RecordSource属性为www '假设在你的同一文件夹下有名为www.mdb的数据库
adodc1的CommandType属性为2-adCmdTable
以下是设置
添加DataGrid,adodc控件,添加www.mdb数据库(菜单栏中的外接程序->可视化数据管理器,文件保存在同一文件夹下)
DataGrid的datasource属性为adodc1
adodc1的connectionstring属性为Provider=Microsoft.Jet.OLEDB.4.0;Data Source=www.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False
adodc1的RecordSource属性为www '假设在你的同一文件夹下有名为www.mdb的数据库
adodc1的CommandType属性为2-adCmdTable
展开全部
ADO控件编程最简单
先引用:工程->引用->Microsoft ActiveX Data Objects 2.0 Library
选中这个点确定
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim SQL As String
Dim a$
Private Sub Command1_Click()
CNN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\vbtest\vb\test.mdb;Persist Security Info=False" 'Source=后面的是你数据库的地址
SQL = "select * from vocation" 'sql语句
RST.Open SQL, CNN.ConnectionString, adOpenKeyset, adLockPessimistic
While Not RST.EOF
a = RST(0) & " " & RST(1) & vbCrLf
Text1.Text = Text1.Text & a
RST.MoveNext
Wend
RST.Close
End Sub
先引用:工程->引用->Microsoft ActiveX Data Objects 2.0 Library
选中这个点确定
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
Dim SQL As String
Dim a$
Private Sub Command1_Click()
CNN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\vbtest\vb\test.mdb;Persist Security Info=False" 'Source=后面的是你数据库的地址
SQL = "select * from vocation" 'sql语句
RST.Open SQL, CNN.ConnectionString, adOpenKeyset, adLockPessimistic
While Not RST.EOF
a = RST(0) & " " & RST(1) & vbCrLf
Text1.Text = Text1.Text & a
RST.MoveNext
Wend
RST.Close
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Public
cnn
As
ADODB.Connection
'ado.connection变量
Public
rs1
As
ADODB.Recordset
'ADODB.Recordset
变量
Private
Sub
Form_Load()
Set
cnn
=
New
ADODB.Connection
Set
rs1
=
New
ADODB.Recordset
Dim
strSQL
As
String
strSQL
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\weldES.mdb;Persist
Security
Info=False"
cnn.Open
strSQL
'连接数据库
rs1.Open
"select
*
from
material
,
cnn
'
打开数据库中的表
以下就可以写你的操作了
End
Sub
cnn
As
ADODB.Connection
'ado.connection变量
Public
rs1
As
ADODB.Recordset
'ADODB.Recordset
变量
Private
Sub
Form_Load()
Set
cnn
=
New
ADODB.Connection
Set
rs1
=
New
ADODB.Recordset
Dim
strSQL
As
String
strSQL
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\weldES.mdb;Persist
Security
Info=False"
cnn.Open
strSQL
'连接数据库
rs1.Open
"select
*
from
material
,
cnn
'
打开数据库中的表
以下就可以写你的操作了
End
Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询