操作系统win98
delhpi 6.0
sql server 2000谢谢
delhpi 6.0
sql server 2000谢谢
解决方案 »
- 如何操作结果集?
- 有什么好方法判断在文本框内输入的是合法的日期???
- delphi中如何对dbgrid进行插入,修改操作??
- 插入时间过长问题?(BDE连接)
- 我在使用TNMSmtp控件时怎么老是出现Authentication failure,该怎么解决? 多谢!!!
- delphi 注册表操作问题
- ==========*****************请看最新版《打印机监控王》*****************==========
- 以下RECORD怎么错了(见内)???delphi初学者送分.
- 简单的数据存储问题!
- 救救我.....为什么我在Delphi 中调用我在SQL Server 中的存储过程时总是传回空值;
- adoquery.filter := 'xxxxxx' ,Access2000数据库过滤问题
- 如何取TstringGrid的边框(border)的宽度啊?
设置连接字符串提供者:选择SQL SEVER
然后选择服务器的名字,或者自己输入,后面的一看就明白了。
//名称:OpenDatabase
//功能:连接数据库
//输入:
//输出:
//返回:TRUE = 成功, FALSE = 失败
//***************************************************
function TBRdata.OpenDatabase: boolean;
var
bOpen: boolean;
begin
if m_Database.Connected then
begin
OpenDatabase := TRUE;
exit;
end;
m_Database.LoginPrompt := FALSE;
m_Database.KeepConnection := TRUE;
m_Database.DatabaseName:= 'BRANDA';
m_Database.Params.Clear;
m_Database.DriverName := 'MSSQL';
m_Database.Params.Add ('SERVER NAME=' + m_strServerName);
m_Database.Params.Add ('DATABASE NAME=' + m_strDatabaseName);
m_Database.Params.Add ('USER NAME=' + m_strUserName);
m_Database.Params.Add ('PASSWORD=' + m_strPassword); bOpen := TRUE;
TRY
m_Database.Open;
EXCEPT
bOpen := FALSE;
END;
OpenDatabase := bOpen;
end;
拖放一个ADOConnection控件到应用程序,然后点击ConnectionString, 在打开的窗口点击Build按钮,选择Microsoft OLE DB Provider for SQL Server, 点击Next按钮,最后按照你的SQL Server的配置设置。