程序下载地址http://www.namipan.com/d/baf8724224228a2023313fc894964c453267cc82a0651200
(不知道为什么 论坛附件传了半天也传不上去 只能放到纳米盘了)
问题是 怎么用DELPHI连接SQL数据库。。
我提问过
但自己还是不会弄
老提示N多错误
呵呵 。。
有点笨。。
大哥大姐们帮我看看】
怎么让它能正确运行
谢谢
我先在就2分
尽我所有吧
(不知道为什么 论坛附件传了半天也传不上去 只能放到纳米盘了)
问题是 怎么用DELPHI连接SQL数据库。。
我提问过
但自己还是不会弄
老提示N多错误
呵呵 。。
有点笨。。
大哥大姐们帮我看看】
怎么让它能正确运行
谢谢
我先在就2分
尽我所有吧
DM.ADOConnection1.Connected := false;
DM.ADOConnection1.ConnectionString :='Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=tempdb;Data Source=127.0.0.1;Connect Timeout=30';
DM.ADOConnection1.LoginPrompt :=false;
DM.ADOConnection1.connected:=True;
FTimes := 1;
except
Application.MessageBox('数据库联接失败,请重新设置!','提示',0);
Application.Terminate;
end;
1.双击database
在name输入 一个名字可以自己定义
在driver name里选则MSSQL2.点击default,出现如下
DATABASE NAME=tempdb ----数据库名称
SERVER NAME=127.0.0.1 ----服务器IP
USER NAME=sa ----用户名
OPEN MODE=READ/WRITE
SCHEMA CACHE SIZE=8
BLOB EDIT LOGGING=
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRU MODE=SHARED AUTOCOMMIT
DATE MODE=0
SCHEMA CACHE TIME=-1
MAX QUERY TIME=300
MAX ROWS=-1
BATCH COUNT=200
ENABLE SCHEMA CACHE=FALSE
SCHEMA CACHE DIR=
HOST NAME=
APPLICATION NAME=
NATIONAL LANG NAME=
ENABLE BCD=FALSE
TDS PACKET SIZE=4096
BLOBS TO CACHE=64
BLOB SIZE=32
PASSWORD=sa --密码用代码动态赋值如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Database1 do
begin
Connected := False;
Params.Values['SERVER NAME'] := '127.0.0.1';
Params.Values['DATABASE NAME'] := 'tempdb';
Params.Values['USER NAME'] := 'sa';
Params.Values['PASSWORD'] := 'sa';
try
Connected := True;
application.MessageBox(PChar('成功'),'提示',MB_ICONFORMATION);
except
application.MessageBox(PChar('失败'),'提示',MB_ICONERROR);
end;
end;
end;
只是试试手的话,也没什么的.BDE很像ODBC的,要注册一个BDE名称,配置好,才能在程序中顺利使用.建议,把里面的数据表都集中到DATAMODAL模块中去,界面中除非必要,一般不要放TQUERY等.
呵呵,其它,尽量用自带控件,做出自己的风格.