//这个是初始化ADOConnection的连接字符串的procedure TForm1.btn2Click(Sender: TObject);
begin
with dmMain.conMain do
begin
Connected := False;
ConnectionString := 'Provider=SQLOLEDB.1;Password=';
ConnectionString := ConnectionString + edt_loginpsw.Text; //数据库密码
ConnectionString := ConnectionString + ';Persist Security Info=True;User ID=';
ConnectionString := ConnectionString + edt_username.Text; //数据库用户名
ConnectionString := ConnectionString + ';Initial Catalog=';
ConnectionString := ConnectionString + 'iceway'; //数据库名
ConnectionString := ConnectionString + ';Data Source=';
ConnectionString := ConnectionString + edt_IP.Text + '\' + 'SQL2005' + ',' +
edt_port.Text;
ShowMessage(ConnectionString);
btn1.Enabled := True;
end;
end;
//接着就是登录数据库了 点了这个按钮后 TDBGridEh控件已经显示内容了
但是不是我想要的内容
他显示的是 数据库里面表名为 iceway的数据但是我想让他显示 为 xiaowu 表的数据
该怎么做呢
procedure TForm1.btn1Click(Sender: TObject);
var
NowBookMark:TBook;
I:Integer;
begin
dmMain.conMain.Connected := False;
dmMain.conMain.Connected := True;
if dmMain.conMain.Connected then
begin
ShowMessage('登录成功');
Screen.Cursor :=crHourGlass;
if not dbgrdh1.DataSource.DataSet.Active then
dbgrdh1.DataSource.DataSet.Active:=True;
TClientDataSet(dbgrdh1.DataSource.DataSet).CancelUpdates;
//重新定位
NowBookMark:=dbgrdh1.DataSource.DataSet.Book;
dbgrdh1.DataSource.DataSet.Refresh;
dbgrdh1.DataSource.DataSet.GotoBook(NowBookMark);
Screen.Cursor :=crDefault;
pm1.AutoPopup := True;
pm2.AutoPopup := True;
end
else
begin
ShowMessage('登录失败');
end;end;
begin
with dmMain.conMain do
begin
Connected := False;
ConnectionString := 'Provider=SQLOLEDB.1;Password=';
ConnectionString := ConnectionString + edt_loginpsw.Text; //数据库密码
ConnectionString := ConnectionString + ';Persist Security Info=True;User ID=';
ConnectionString := ConnectionString + edt_username.Text; //数据库用户名
ConnectionString := ConnectionString + ';Initial Catalog=';
ConnectionString := ConnectionString + 'iceway'; //数据库名
ConnectionString := ConnectionString + ';Data Source=';
ConnectionString := ConnectionString + edt_IP.Text + '\' + 'SQL2005' + ',' +
edt_port.Text;
ShowMessage(ConnectionString);
btn1.Enabled := True;
end;
end;
//接着就是登录数据库了 点了这个按钮后 TDBGridEh控件已经显示内容了
但是不是我想要的内容
他显示的是 数据库里面表名为 iceway的数据但是我想让他显示 为 xiaowu 表的数据
该怎么做呢
procedure TForm1.btn1Click(Sender: TObject);
var
NowBookMark:TBook;
I:Integer;
begin
dmMain.conMain.Connected := False;
dmMain.conMain.Connected := True;
if dmMain.conMain.Connected then
begin
ShowMessage('登录成功');
Screen.Cursor :=crHourGlass;
if not dbgrdh1.DataSource.DataSet.Active then
dbgrdh1.DataSource.DataSet.Active:=True;
TClientDataSet(dbgrdh1.DataSource.DataSet).CancelUpdates;
//重新定位
NowBookMark:=dbgrdh1.DataSource.DataSet.Book;
dbgrdh1.DataSource.DataSet.Refresh;
dbgrdh1.DataSource.DataSet.GotoBook(NowBookMark);
Screen.Cursor :=crDefault;
pm1.AutoPopup := True;
pm2.AutoPopup := True;
end
else
begin
ShowMessage('登录失败');
end;end;
让ADOQuery指定一个表
在 if dmMain.conMain.Connected then 之前添加代码
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from XIAOWU');
adoquery1.open;