vb用代码连数据库的问题

Question

在vb中用代码连数据库如:data控件,用相对地址,还有什么app.path我不会用啊.具体的代码怎么写啊!DAO的代码呢?谢谢指点.100分答谢英雄.

Answer 1

Dim strDBPass As String
Dim db As Connection
Dim rec As RecordsetPrivate Sub Form_Load()
strDBPass = App.Path + "\db1.MDB;Jet OLEDB:Database Password=microsoft;"
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPass
rec.Open "select * from  資料表1", db, adOpenStatic, adLockPessimistic
....................................
End Sub

Answer 2

app.path的意思是说你的程序或可执行文件与数据库在同一目录下,否则就要写出具体的数据库所在的地址

Answer 3

Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yourbase.MDB"

Answer 4

Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=SQLOLEDB.1;driver={SQL Server};server=" & strSERVER & ";uid=" & strUID & ";pwd=" & strPWD & ";database=" & strBASE & ";"上一个贴连接access,本贴连接SQLserver.

Answer 5

Private Sub Form_Load()
'************************************树种表连接****************************
    Set cn = New ADODB.Connection
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open App.Path & "/kfsystem_sz.mdb"    Set rsShuzhong = New ADODB.Recordset    rsShuzhong.Open "树种表", cn, adOpenStatic, adLockOptimistic, adCmdTable
    displayEnd Sub

Answer 6

补充：（通用定义！）
Option Explicit
Private cn As ADODB.Connection
Private rsShuzhong As ADODB.Recordset

Answer 7

还有记得工程->引用->micorosoft ADO 2.7 library!

Answer 8

要注意的问题是：app.path的用法楼上的都已说的很清楚了，不过程序文件一定要与数据库文件要在同一目录。

Answer 9

Public adoCNAccess As New adodb.Connection '定义数据库的连接 
    With adoCNAccess
        If .State <> adStateOpen Then
            .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path  & "\Trade.mdb" ';password=allway"
            .ConnectionTimeout = 5
            .Open
            If .State = adStateOpen Then
                OpenAccess = "数据库连接成功"
            Else
                OpenAccess = "数据库连接失败，请按帮助进行检查 ！"
                MsgBox "数据库连接失败，请找系统管理员进行检查 ！", 16, cProgramName
                End
            End If
        End If
    End With

Answer 10

'ADO的连接
'myAdoConn.Open "DSN=DSNNAME;UID=USER;Password=PWD"
  '上面是用数据源打开数据库，下面用字符串连接
  'myAdoConn.Open "DBQ=" + App.Path & "\test.mdb" & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  '用直接打开SQL服务器方式打开连接
  myAdoConn.Open "Provider=SQLOLEDB;Data Source=zzs;User ID=sa;Password=;Initial Catalog=test"