100分！有关数据库的连接ado,在线等待

Question

dim cn as new adodb.connection
cn.provider="Microsoft.Jet.OLEDB.4.0" 'Access2000要用4.0，版本低的用3.51也可以
cn.open "c:\test.mdb"

Answer 1

Dim Connstr as String;
Dim ssql as string;
Dim Conn As ADODB.Connection;
Dim Rs As ADODB.Recordset;ConnStr ＝ "Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False";
Conn.open connstr;
ssql = "select * from test";
rs.open ssql,conn,3,1;
以后就像SQL SERVER一样操作就可以了

Answer 2

同意 LiHans(我是天才我人渣)  的方法

Answer 3

同意LiHans，并补充
要执行Sql语句需要
Conn.Execute
如
Conn.Execute "insert into tablename values(fileds)"

Answer 4

动态连接如下
Dim db As ADODB.Connection;
Dim Rs As ADODB.Recordset
Dim strfile As String
CommonDialog1.DialogTitle = "File open'"
CommonDialog1.Filter = "*.mdb"
CommonDialog1.FileName = "*.mdb"
CommonDialog1.ShowOpen
strfile = CommonDialog1.FileName
Dim c As New ADODB.Command
With rs
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & strfile
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = "Select * from Dis_Info"
.Open
End With
如果要断开，连接上别的数据库，只要：
set rs=nothing
然后重新连接

Answer 5

注意：在Refrences...中引用ADO连接

Answer 6

SUB CONN
On Error GoTo err1
Set cn=new Adodb.Connection
cn.ConnectionTimeout = 100
cn.Open "DBQ=" & 数据库路径 & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" & "Uid=" & 用户名 & ";Pwd=" & 口令 & ";"
Exit Sub
err1:
    MsgBox "连接数据库失败！"
End Sub

Answer 7

hezhongxia(老厶)的连接方法比较好.
如果数据库在LOCAL.

Answer 8

Dim Con As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim cSql As StringcSql = "C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb"
Con.Open cSqlcSql = "select * from orders"
If Rst.State = 1 Then Rst.Close
Rst.Open cSql, Con, adOpenKeysetcSql = "select * into orders2 from orders where ..."
Con.Execute cSql
差不多包含了一些基本操作

Answer 9

很简单的,先引用ado2.5再使用如下的函数:
  '用特定的筛选条件(MyRecordSource)连接特定的数据库(MyDatabase)两个参数来连接数据库中的某张表(MyTable),数据库的密
                                     '码为DataBasePassword 
                                      '并指定特定的字段(MyFields)，返回特定的值,不绑定数据控件Function adoconnect3(ByVal MyDatabase As String, ByVal MyTable As String, ByVal MyFields As String, ByVal MySQLCondition1 As String) As Recordset
   
   Dim MyRs As ADODB.Recordset
   Dim MyConnectString As String
   Dim sql As String
   
 ''' 打开连接。
   MyPath = getapppathparent + "database\"
   MyConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & MyPath & MyDatabase & ";Jet OLEDB:Database Password=" & DataBasePassword 
   Set MyCnn = New ADODB.Connection
   MyCnn.Open MyConnectString
   
   ''建立RecordSet
   Set MyRs = New ADODB.Recordset
   sql = "SELECT " & MyFields & "  FROM " & MyTable & MySQLCondition1
    MyRs.CursorLocation = adUseClient
   MyRs.LockType = adLockBatchOptimistic
   MyRs.CursorType = adOpenKeyset
  
   ''给函数赋值
   MyRs.Open sql, MyCnn
   Set adoconnect3 = MyRs
   
  End Function

Answer 10

上面那么多人都说了，看来我是没分了。
哈哈哈
用ado对象或者用ado控件，控件比较简单，找本书看看

Answer 11

set conn=server.createobject("adodb.connection")
conn.provide="SQLOLEDB"
conn.connectionstring="Data Server=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码"
conn.open
querystr="select * from 表名"
set rs=conn.exeute(querystr)
conn.close