大苯瓜只最菜的问题。

Question

我没有做过ADO的。
不过好像直接用VB写SQL语句就可以实现了。

Answer 1

ado.execute "insert into aaa (fff) values (1)"

Answer 2

faint!关键是怎么建立ado对象？怎么连接数据库？
www.xxxx.com/xxxx.mdb
怎么用ado打开这个数据库？

Answer 3

建立一个连接字串，然后生成一个recordset。后面就不用说了，关键是连接这个数据库。如果是97版的access使用Provider=Microsoft.Jet.OLEDB.3.5;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False,如果是2000的，Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False。其中Source指向数据库文件的路径。然后，使用cn.open方法，打开这个连接串，就行了。

Answer 4

set cn=new adocb.connect
cn.open "Provider=Microsoft.Jet.OLEDB.3.5;Data Source=www.52stuy.com/aaa.mdb ;Persist Security Info=False"
cn.excute "insert into aaa (fff) values (1)"
cn.close
set cn=nothing

Answer 5

dim cn as adodb.Connection
dim rs as adodb.recordsetset cn=new adodb.connection
cn.cope  "rovider=Microsoft.Jet.OLEDB.3.5;Data Source=www.52stuy.com/aaa.mdb ;Persist Security Info=False"Set rs=new adodb.recordsetrs.open "select * from aaa",cn, adOpenKeyset,adLockOptimistic rs.addnew
rs!fields("fff")=1
'如果字段类型是字符则用
'rs!fields(fff")="1"
rs.updaters.close
cn.closeset rs=nothing
set cn=nothing

Answer 6

可以直接弹出DataLink属性框，你可以选择Provider和数据源位置
<<<<<<<<<<<<<<<<Code>>>>>>>>>>>>>>>
Public Function GetConnectDSN(ByVal DSN As String) As String
   Dim c As DataLinks
   Dim d As ADODB.Connection
   Set c = New DataLinks
   Set d = New ADODB.Connection
   d.ConnectionString = DSN
   If c.PromptEdit(d) = True Then
      GetConnectDSN = d.ConnectionString
      mvarLastDSN = d.ConnectionString
      mvarConnectResult = True
   Else
      mvarConnectResult = False
      GetConnectDSN = ""
   End If
   Set d = Nothing
End Function
Public Function ConnectDB(ByVal DSN As String) As String
   If DSN <> "" Then
      ConnectDB = GetConnectDSN(DSN)
   Else
      
      ConnectDB = GetConnectDSN("")
      Dim i As Integer
   End If
End FunctionPublic Property Get ConnectResult() As Boolean
   ConnectResult = mvarConnectResult
End PropertyPublic Function OpenConnection(DSN As String) As String
   Set CONN = New ADODB.Connection
   CONN.ConnectionString = DSN
   CONN.CursorLocation = adUseClient
   On Error GoTo ErrHandle
   CONN.Open
   OpenConnection = DSN
   Exit Function
ErrHandle:
   DSN = ""
   DSN = ConnectDB(DSN)
   CONN.ConnectionString = DSN
   CONN.CursorLocation = adUseClient
   CONN.Open
   OpenConnection = DSN
End Function

Answer 7

你们给我的程序全部都是“ODBC 数据库没有指定来源”或者“未指定成员”
之类的错误！没有一个能运行的。
cn.cope  "rovider=Microsoft.Jet.OLEDB.3.5;Data Source=www.52stuy.com/aaa.mdb ;Persist Security 
比如这句！.cope干脆就说不支持这个方法。
改成.open就说没有指定数据库驱动程序。