D
delphi3058
Unregistered / Unconfirmed
GUEST, unregistred user!
请问：怎样用DELPHI将DBGRID中显示的数据转换成ACCESS，并且还用给ACCESS设置密码？我使用的是SQLSERVER。要求ACCESS的字段与SQLSERVER相同。谢谢富翁们了！
D
delphi3058
Unregistered / Unconfirmed
GUEST, unregistred user!
能否提供源代码？
秃
秃鹰
Unregistered / Unconfirmed
GUEST, unregistred user!
哈哈，上次为了这个花去了我100两银子，我喜欢从哪跌倒，就从哪爬起来，今天用这个问题拿回100两银子。
var
New_MDB : OleVariant;
begin
try
New_MDB := CreateOleObject('ADOX.Catalog');
New_MDB.Create('Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=f:/server.mdb' +
';Jet OLEDB
ataBase Password=123456');
except
end;
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:/Server.MDB;'
+'Persist Security Info=False;Jet OLEDBatabase Password=123456';
ADOConnection1.Execute('select * into 表名 from 表名 IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=******;Server=servername;DataBase=dataname]');
end;
var
New_MDB : OleVariant;
begin
try
New_MDB := CreateOleObject('ADOX.Catalog');
New_MDB.Create('Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=f:/server.mdb' +
';Jet OLEDB
ataBase Password=123456');except
end;
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:/Server.MDB;'
+'Persist Security Info=False;Jet OLEDB
atabase Password=123456';ADOConnection1.Execute('select * into 表名 from 表名 IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=******;Server=servername;DataBase=dataname]');
end;