我用BDE连接服务器、代码如下
//登录服务器并保持连接(用BDE)
function TMainDataModule.LoginServer:boolean;
begin
Result := true;
try
with DataBase1 do
begin
DataBaseName := 'testdb';
DriverName := 'MSSQL';
Params.Add('SERVER NAME='+dbServerName);
Params.Add('DATABASE NAME='+dbCurData);
Params.Add('USER NAME='+dbUser);
Params.Add('MAX QUERY TIME=50');
Params.Add('ENABLE BCD=TRUE');
Params.Add('PASSWORD='+dbPassword);
Params.Add('APPLICATION NAME=我的应用');
Params.Add('TDS PACKET SIZE=4096');
LoginPrompt := false;
Connected;
Open;
end;
except
Result := false;
WARNING('登录报务器失败,请检查网络连接和系统设置!');
Application.Terminate;
end;
Table1.DatabaseName := DataBase1.DatabaseName;
Query1.DatabaseName := DataBase1.DatabaseName;
end;
但Open时执行出错、是什么问题啊
那个 DataBaseName := 'testdb';
DriverName := 'MSSQL'
是什么意思啊、testdb与MSSQL应该用什么代、我用的是SQL2000.
//登录服务器并保持连接(用BDE)
function TMainDataModule.LoginServer:boolean;
begin
Result := true;
try
with DataBase1 do
begin
DataBaseName := 'testdb';
DriverName := 'MSSQL';
Params.Add('SERVER NAME='+dbServerName);
Params.Add('DATABASE NAME='+dbCurData);
Params.Add('USER NAME='+dbUser);
Params.Add('MAX QUERY TIME=50');
Params.Add('ENABLE BCD=TRUE');
Params.Add('PASSWORD='+dbPassword);
Params.Add('APPLICATION NAME=我的应用');
Params.Add('TDS PACKET SIZE=4096');
LoginPrompt := false;
Connected;
Open;
end;
except
Result := false;
WARNING('登录报务器失败,请检查网络连接和系统设置!');
Application.Terminate;
end;
Table1.DatabaseName := DataBase1.DatabaseName;
Query1.DatabaseName := DataBase1.DatabaseName;
end;
但Open时执行出错、是什么问题啊
那个 DataBaseName := 'testdb';
DriverName := 'MSSQL'
是什么意思啊、testdb与MSSQL应该用什么代、我用的是SQL2000.
解决方案 »
- 有关dbgrideh控件根据记录的不同显示不同字体颜色的问题?
- 动态载入BPL时,如何对BPL内的控件进行访问?
- 关于注册表写入操作
- sql连接出现ConnectionOpen(CreateFile())错误怎么办?
- 我用SetWindowsHookEx拦截键盘输入时,字母怎么全是大写啊?
- nil是什么意思??
- 想实现一个思路,不知道怎么做,就是要实现按一个热键,然后就调用屏幕保护程序或者直接黑屏也行。
- delphi 2005有TRvProject、TRvSystem、TRvQueryConnection这些组件吗?懂的进来帮帮忙...
- 各位大虾:请问如何调用第三方的Dll,如第三方SDK中的Dll.
- 紧急,我找了一天了,那里可以找到定植的ListBox,可以像DataGrid那样用,给我各详细例子好吗?我急着用.只是不要连结数据库.
- 请问:当窗体失去焦点时,触发什么事件?具体看内容!(60)
- 在ttreeview中如何才能失去焦点时,所选择的项目,仍然高亮显示呀
Table1就用ADOQuery1吧,灵活多了:)
eg: sql.add(select * from table);
....//////////////////////////ADOCon...最好不过了:)var
s_user,s_ip,s_password:string;
con:string;
begin
s_user:=Edit1.text;
s_ip:=Edit2.text;
s_password:=Edit3.text;
con:='Provider=SQLOLEDB.1;Password='+s_password+';'+'Persist Security Info=True;User ID='+s_user+';'+'Initial Catalog=database;Data Source='+s_ip+';';
with ADOCon do
begin
if Connected then Connected:=false;
ConnectionString:=Con;
try
Connected:=true;
KeepConnection:=True;
except
showmessage('数据库连接出错!');
end;
end;
end;
我用ADO可以了
但是到后面的工程中要用到库里面的表不知道怎么才能打开那个表
比如库里面有个login表、我想增加记录、它是不是跟上面的数据源有什么关系啊、能不能发这一小部分的代码过来啊
...
Connected;
Open;
...
是什么意思啊?
Open 一下不就可以了吗?或者是 Connected := True 啊?
是不是你写多了呀?
但是到后面的工程中要用到库里面的表不知道怎么才能打开那个表
比如库里面有个login表、我想增加记录、它是不是跟上面的数据源有什么关系啊、能不能发这一小部分的代码过来啊