VB连接数据库的方法2

'能使表名长度不受限制

Adodc1.ConnectionString = \Visual Foxpro Driver;SourceDB=\Identifier=2052\

'Adodc1.RecordSource = \

Adodc1.RecordSource = \ Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh End Sub

3.'ADO控件与Excel表连接 Private Sub Command3_Click() '下面一句测试未能通过

'Adodc1.ConnectionString = \

Provider=MSDASQL.1;driver=Microsoft Excel Driver *.xls);DBQ=\App.Path & \

'Adodc1.ConnectionString=\Info=False;Extended Properties=DSN=Excel Files;DBQ=\\EXcel.xls;DefaultDir=”&app.path

&”;DriverId=790;MaxBufferSize=2048;PageTimeout=5;\

Adodc1.ConnectionString =

\Source=\8.0;HDR=Yes'\

'Adodc1.RecordSource = \

Adodc1.RecordSource = \ Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh End Sub

4.'ADO控件与Oracle数据库连接 Private Sub Command4_Click()

'Adodc1.ConnectionString =

\Source=towebserver;Persist Security Info=True\

Adodc1.ConnectionString=\;Persist Security Info=True;User ID=chncmadb;Data Source=towebserver\ 'Adodc1.RecordSource = \ '表名不能加方括号

Adodc1.RecordSource = \ Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh End Sub

5.'ADO控件与SQLserver数据库连接 '未测试

Private Sub Command5_Click()

Adodc1.ConnectionString =

\ID=111;Initial Catalog=111;Data Source=111\ 'Adodc1.RecordSource = \

Adodc1.RecordSource = \ Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh End Sub

四、用ADO代码连接数据库

'在使用ADO对象前应选定Visual Basic菜单下的[工程]中的引用了菜单中的[Microsoft.ActiveX Data Object 2.5 Library]选项，或其它版本 1.'ADO代码与Access2000数据库连接 Private Sub Command1_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient

'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串

AdoCnn.Open \App.Path & \AdoRs.Open \耕地资源管理单元属性数据表2004]\adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = Nothing

End Sub

2.'ADO代码与DBF表连接 Private Sub Command2_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient

'.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串

AdoCnn.Open \Driver;SourceDB=\& App.Path & \Identifier=2052\AdoRs.Open \adLockPessimistic, adCmdText

Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = Nothing End Sub

3.'ADO代码与Excel表连接 Private Sub Command3_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset