VB与各数据库的几种连接方式.docx
《VB与各数据库的几种连接方式.docx》由会员分享，可在线阅读，更多相关《VB与各数据库的几种连接方式.docx（11页珍藏版）》请在冰豆网上搜索。
VB与各数据库的几种连接方式
－、用DAO控件连接数据库
1.与Access2000数据库连接
PrivateSubCommand1_Click（）
'也可直接在控件属性中设置以下各项但在控件属性中不能写入密码
'只有在数据数没有密码的情况下可以省略
Data1.Refresh
Data1.Connect="Access2000;"
Data1.DatabaseName=App.Path+"\chncmadb.mdb"
'数据库没有密码此句可省
Data1.Connect=";pwd=123456"
'Data1.RecordSource="耕地资源管理单元属性数据表2004"
Data1.RecordSource="select*from耕地资源管理单元属性数据表2004"
Data1.Refresh
’move后才能正确显示记录个数
EndSub
2.与没有密码的DBF文件数据库连接
PrivateSubCommand2_Click（）
Data1.Connect="dBASEIII;"
Data1.DatabaseName=App.Path
'Data1.RecordSource="DBF"
Data1.RecordSource="select*fromdbf"
Data1.Refresh
’move后才能正确显示记录个数
EndSub
3.与没有密码的Excel文件数据库连接
PrivateSubCommand3_Click（）
Data1.Connect="Excel8.0;"
Data1.DatabaseName=App.Path&"\EXcel.xls"
Data1.RecordSource="select*from[EXcel.xls]"
Data1.Refresh
’move后才能正确显示记录个
EndSub
二、用DAO代码连接数据库
'在使用DAO对象前应选定VisualBasic菜单下的[工程]中的引用了菜单中的[MicrosoftDAO3.6ObjectLibrary]选项，或其它版本
1.DAO代码与Access数据库连接
PrivateSubCommand1_Click（）
DimDbAsDatabase
DimRsAsRecordset
'以共享、读写方式打开'如果无密码最后一个参数可以不要
Set Db=OpenDatabase（App.Path&"\chncmadb.mdb",False,False,";pwd=123456"）
'不需要move来更新记录个数
'SetRs=Db.OpenRecordset（"耕地资源管理单元属性数据表2004"）
'需要move来更新记录个数
SetRs=Db.OpenRecordset（"select*from[耕地资源管理单元属性数据表2004]"）
IfRs.RecordCount>0Then
Rs.MoveLast
Rs.MoveFirst
EndIf
EndSub
2.DAO代码与没有密码的DBF文件数据库连接
PrivateSubCommand2_Click（）
DimDbAsDatabase
DimRsAsRecordset
'以共享、读写方式打开
SetDb=OpenDatabase（App.Path,False,False,"dbaseIII;"）
'不需要move来更新记录个数
'SetRs=Db.OpenRecordset（"DBF"）
’需要move来更新记录个数
SetRs=Db.OpenRecordset（"select*from[DBF]"）
IfRs.RecordCount>0Then
Rs.MoveLast
Rs.MoveFirst
EndIf
Endsub
3.'DAO代码与没有密码的Excel文件数据库连接
PrivateSubCommand3_Click（）
DimDbAsDatabase
DimRsAsRecordset
'以共享、读写方式打开'如果无密码最后一个参数可以不要
SetDb=OpenDatabase（App.Path&"\EXcel.xls",False,False,"Excel8.0;"）
'不需要move来更新记录个数
'SetRs=Db.OpenRecordset（"EXcel.xls"）'表格中的工作目录sheet
'需要move来更新记录个数
SetRs=Db.OpenRecordset（"select*from[EXcel.xls]"）'表格中的工作目录sheet'
IfRs.RecordCount>0Then
Rs.MoveLast
Rs.MoveFirst
EndIf
EndSub
三、用ADO控件连接数据库
'也可直接在控件属性中设置以下各项
1.ADO控件与Access2000数据库连接
PrivateSubCommand1_Click（）
'连接有密码的Access数据库
'Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\chncmadb1.mdb;JetOLEDB:
DataBasePASSWORD=123456"
'连接没有密码的Access数据库
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\chncmadb.mdb;PersistSecurityInfo=False"
'Adodc1.RecordSource="[耕地资源管理单元属性数据表2004]"
Adodc1.RecordSource="select*from[耕地资源管理单元属性数据表2004]"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
DataGrid1.Refresh
EndSub
2.'ADO控件与DBF表连接
PrivateSubCommand2_Click（）
'Adodc1.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=dBASEFiles;DBQ="&App.Path&";SourceType=DBF;"
'Adodc1.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;ExtendedProperties=DSN=VisualFoxProTables;UID=;SourceDB=”&app.path&”;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
'Adodc1.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;ExtendedProperties=DSN=dBASEFiles;DBQ=”&app.path&”;;DefaultDir=”&app.path&”;DriverId=533;MaxBufferSize=2048;PageTimeout=5;"
'能使表名长度不受限制
Adodc1.ConnectionString="Provider=MSDASQL.1;Driver=MicrosoftVisualFoxproDriver;SourceDB="&App.Path&";SourceType=DBF;LocaleIdentifier=2052"
'Adodc1.RecordSource="[DBF1]"
Adodc1.RecordSource="select*fromDBF1"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
DataGrid1.Refresh
EndSub
3.'ADO控件与Excel表连接
PrivateSubCommand3_Click（）
'下面一句测试未能通过
'Adodc1.ConnectionString="DataProvider=MSDASQL.1;driver=MicrosoftExcelDriver*.xls）;DBQ="&App.Path&"\EXcel.xls"
'Adodc1.ConnectionString="Provider=MSDASQL.1;PersistSecurityInfo=False;ExtendedProperties=DSN=ExcelFiles;DBQ="&App.Path&"\EXcel.xls;DefaultDir=”&app.path&”;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False;DataSource="&App.Path&"\EXcel.xls;ExtendedProperties='Excel8.0;HDR=Yes'"
'Adodc1.RecordSource="[EXcel.xls]"
Adodc1.RecordSource="select*from[EXcel.xls]"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
DataGrid1.Refresh
EndSub
4.'ADO控件与Oracle数据库连接
PrivateSubCommand4_Click（）
'Adodc1.ConnectionString="Provider=MSDAORA.1;Password=chncmadb;UserID=chncmadb;DataSource=towebserver;PersistSecurityInfo=True"
Adodc1.ConnectionString="Provider=OraOLEDB.Oracle.1;Password=chncmadb;PersistSecurityInfo=True;UserID=chncmadb;DataSource=towebserver"
'Adodc1.RecordSource="T320481TR012004"
'表名不能加方括号
Adodc1.RecordSource="select*fromT320481TR012004"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
DataGrid1.Refresh
EndSub
5.'ADO控件与SQLserver数据库连接
'未测试
PrivateSubCommand5_Click（）
Adodc1.ConnectionString="Provider=SQLOLEDB.1;Password=111;PersistSecurityInfo=True;UserID=111;InitialCatalog=111;DataSource=111"
'Adodc1.RecordSource="T320481TR012004"
Adodc1.RecordSource="select*fromT320481TR012004"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
DataGrid1.Refresh
EndSub
四、用ADO代码连接数据库
'在使用ADO对象前应选定VisualBasic菜单下的[工程]中的引用了菜单中的[Microsoft.ActiveXDataObject2.5Library]选项，或其它版本
1.'ADO代码与Access2000数据库连接
PrivateSubCommand1_Click（）
DimAdoCnnAsADODB.Connection
DimAdoRsAsADODB.Recordset
SetAdoCnn=NewADODB.Connection
SetAdoRs=NewADODB.Recordset
AdoCnn.CursorLocation=adUseClient
'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串
AdoCnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\chncmadb1.mdb;JetOLEDB:
DataBasePASSWORD=123456"
AdoRs.Open"select*from[耕地资源管理单元属性数据表2004]",AdoCnn,adOpenDynamic,adLockPessimistic,adCmdText
SetDataGrid1.DataSource=AdoRs
SetAdoRs=Nothing
SetAdoCnn=Nothing
EndSub
2.'ADO代码与DBF表连接
PrivateSubCommand2_Click（）
DimAdoCnnAsADODB.Connection
DimAdoRsAsADODB.Recordset
SetAdoCnn=NewADODB.Connection
SetAdoRs=NewADODB.Recordset
AdoCnn.CursorLocation=adUseClient
'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串
AdoCnn.Open"Provider=MSDASQL.1;Driver=MicrosoftVisualFoxproDriver;SourceDB="&App.Path&";SourceType=DBF;LocaleIdentifier=2052"
AdoRs.Open"select*from[DBF1]",AdoCnn,adOpenDynamic,adLockPessimistic,adCmdText
SetDataGrid1.DataSource=AdoRs
SetAdoRs=Nothing
SetAdoCnn=Nothing
EndSub
3.'ADO代码与Excel表连接
PrivateSubCommand3_Click（）
DimAdoCnnAsADODB.Connection
DimAdoRsAsADODB.Recordset
SetAdoCnn=NewADODB.Connection
SetAdoRs=NewADODB.Recordset
AdoCnn.CursorLocation=adUseClient
'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串
AdoCnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False;DataSource="&App.Path&"\EXcel.xls;ExtendedProperties='Excel8.0;HDR=Yes'"
AdoRs.Open"select*from[EXcel.xls]",AdoCnn,adOpenDynamic,adLockPessimistic,adCmdText
SetDataGrid1.DataSource=AdoRs
SetAdoRs=Nothing
SetAdoCnn=Nothing
EndSub
4.'ADO代码与Oracle数据库连接
PrivateSubCommand4_Click（）
DimAdoCnnAsADODB.Connection
DimAdoRsAsADODB.Recordset
SetAdoCnn=NewADODB.Connection
SetAdoRs=NewADODB.Recordset
AdoCnn.CursorLocation=adUseClient
'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串
AdoCnn.Open"Provider=OraOLEDB.Oracle.1;Password=chncmadb;PersistSecurityInfo=True;UserID=chncmadb;DataSource=towebserver"
AdoRs.Open"select*fromT320481TR012004",AdoCnn,adOpenDynamic,adLockPessimistic,adCmdText
SetDataGrid1.DataSource=AdoRs
SetAdoRs=Nothing
SetAdoCnn=Nothing
EndSub
5.'ADO代码与SQLserver数据库连接
'未测试
PrivateSubCommand5_Click（）
DimAdoCnnAsADODB.Connection
DimAdoRsAsADODB.Recordset
SetAdoCnn=NewADODB.Connection
SetAdoRs=NewADODB.Recordset
AdoCnn.CursorLocation=adUseClient
'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串
AdoCnn.Open"Provider=SQLOLEDB.1;Password=111;PersistSecurityInfo=True;UserID=111;InitialCatalog=111;DataSource=111"
AdoRs.Open"select*fromT320481TR012004",AdoCnn,adOpenDynamic,adLockPessimistic,adCmdText
SetDataGrid1.DataSource=AdoRs
SetAdoRs=Nothing
SetAdoCnn=Nothing
EndSub
感谢下载!
欢迎您的下载，资料仅供参考
升级会员 