lazarus odbc连接代码

猫工

刚刚试了，在XP下连接MYSQL、ACCESS没问题(win下测试通过)
听说数据中文会有问题，我再来试试

2. procedure TForm1.Button1Click(Sender: TObject);
3. begin
4.   ODBCConn.Driver:= 'MySQL ODBC 5.1 Driver';
5.   ODBCConn.UserName:= '用户名';
6.   ODBCConn.Password:= '输入密码';
7.   ODBCConn.Params.Add('SERVER=127.0.0.1');
8.   ODBCConn.Params.Add('PORT=3306');
9.   ODBCConn.Params.Add('DATABASE=device_watch_center');
10.   ODBCConn.Open;
11.   if ODBCConn.Connected then
12.     label1.Caption := 'odbc Conn mysql5 is ok'
13.   else
14.     label1.Caption := 'odbc Conn mysql5 is error';
15. end;
16. procedure TForm1.Button2Click(Sender: TObject);
17. begin
18.   ODBCConn.Driver:= 'Microsoft Access Driver (*.mdb)';
19.   ODBCConn.Params.Add('DBQ=F:\\dwc\\device_watch_center.mdb');
20.   ODBCConn.Open;
21.   if ODBCConn.Connected then
22.     label1.Caption := 'odbc Conn Access is ok'
23.   else
24.     label1.Caption := 'odbc Conn Access is error';
25. end;   

复制代码

Button1Click是连接mysql
Button2Click是连接access

ft1022

我安照你的方法，成功的连接了一个Ms Access数据库。
因为ODBCConnection.Connectioned 为真，但是用ODBCConnection.GetTableNames返回表名时，发生了错误，是什么原因？需要如何解决？
我的代码如下：
ListBox1.items:=Get_TableNames;
function GetTableNames:TStrings;begin    Result:=TStringList.Create;   if ODBCConnection.Connedtioned then     ODBCConnection.GetTableNames(Result);end;

lirongqiao

有没有连接SQL Server

samsam598

引用楼主猫工于2009-09-18 16:06发表的 lazarus odbc连接代码 :
刚刚试了，在XP下连接MYSQL、ACCESS没问题(win下测试通过)
听说数据中文会有问题，我再来试试

[code]
procedure TForm1.Button1Click(Sender: TObject);
.......

请问ACCESS的中文数据在LAZ的dbgrid/dbedit中能正确显示吗？俺回回试回回都不行，好受打击。