怎样做一个用ADO连SQL Server的登陆窗口
登陆窗口上有：一个用户名Tedit,一个密码Tedit,一个登陆按钮.
主窗口上有一个ADOConnection1.
请问怎样使按下登陆按钮就能登陆数据库,请详细讲一下ADOConnction的ConnectionString的设置？
问题点数：0、回复次数：6Top
1 楼myy（）回复于 2003-05-04 00:54:31 得分 0
先用对话框连一下(要成功)，获取到ConnectionString作样版，在程序中动态为
ADOConnction的ConnectionString赋值，其中用户名部分用“用户名Tedit->Text”
代替,密码部分用密码Tedit->Text代替即可，举个动态mdb路径的例子：
{
AnsiString AppDir=ExtractFilePath(Application->ExeName);
acRepExp->Close();
acRepExp->ConnectionString=WideString("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+AppDir+"Reports.mdb;Persist Security Info=False");
//连接exe同目录下的Reports.mdb库
try
{
acRepExp->Open();
}
catch(...)
{
Application->MessageBoxA("不能数据库！","提示信息",MB_OK|MB_ICONERROR);
}
}Top
2 楼Killmyself（有史以来最蹩脚的程序员）回复于 2003-05-04 08:34:08 得分 0
上面的是连接access数据库的，连接sql server的我不止到啊Top
3 楼swordmanyang（）回复于 2003-05-04 08:47:24 得分 0
Connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;";
if ( LoginName->Text != "" )
{
Connstr = Connstr + "User ID=" + pUserLogin + ";";
}
if ( LoginPass->Text != "" )
{
Connstr = Connstr + "PWD=" + pUserPass + ";";
}
Connstr = Connstr + "Initial Catalog=" + Database->Text + ";";
Connstr = Connstr + "Data Source=" + ServerName->Text + ";";
ADOConnection->ConnectionString = Connstr;
ADOConnection->Connected = true;Top
4 楼gdyt007（只因专注）回复于 2003-05-07 11:42:15 得分 0
给你一个范例，如何！其实很简单！要的话写上emailTop
5 楼yegreat（屋脊）回复于 2003-05-13 21:57:27 得分 0
yebest@sina.comTop
