动态连接数据库

dephi连接方法:
procedure TloginForm.FormCreate(Sender: TObject);
var
currentPath,str,path:String;
begin

path:=ExtractFilePath(Application.ExeName );
currentPath:=concat(path,'HomeInfoSystem.mdb');
str:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;';
str:=concat(str,'Data Source=',currentpath);
ADOConnection.ConnectionString:=str;
ADOTable.Connection:=ADOConnection;
ADOTable.TableName:='成员列表';
ADOTable.Active:=True; ;
ADOTable.Open ;

end;


vb连接方法1(ADO):
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Public Sub OpenDBConn(ByVal strPath As String)
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source = " & strPath & "/your_db.mdb"
conn.Open
End Sub

Private Sub Form_Load()
OpenDBConn (App.Path)
Set rs = conn.Execute("select * from userInfo")
End Sub

(2)
'用此方法操作数据库需引用DOA对象
Dim dbs As Database
Dim rst As Recordset
Dim strName As String
Dim strPwd As String

Private Sub Form_Load()
Set dbs = OpenDatabase(App.Path & "/db.mdb")
Set rst = dbs.OpenRecordset("user")
addNewX
End Sub
Private Sub addNewX()
strName = InputBox("请输入姓名;", "对话:", "")
strPwd = InputBox("请输入密码;", "对话:", "")
If strName <> "" And strPwd <> "" Then
addCord rst, strName, strPwd
Else
MsgBox "姓名或密码不能为空"
End If
End Sub
Private Sub addCord(rs As Recordset, name As String, pwd As String)
With rs
.AddNew
!name = name
!pwd = pwd
.Update
End With

End Sub