delphi ADO 连接sql server2000 - 编程论坛

#2

fuliping2007-03-26 19:10

说清楚!?
步明白?!

#3

sxzxwxf222007-03-26 21:43

书上应该都写的很清楚吧，按照那来，好像要加三个组件

#4

sgliuxiu2007-03-26 23:17

如果你要编程而且要经常用到那个连接的话，先建立一个data module,在file-new 那选择data module,然后将ado中的adoconnection控件放过去，它的connectionstring属性按照提示一步一步的连接到你要连接的数据库.以后凡是连接到那个数据库的控件,都选这个连接就可以了.注意prompt 属性最好设置成false.

#5

pacocai2007-03-27 05:46

，书上写得很清楚…………………………

#6

无知的小孩2007-03-27 09:17

我用的是adoquery,adoconnection,dbgrid,listview,表的内容是姓名，编号，年龄等等，现在我可以显示出只能显示姓名，不管我怎么改，都没用

诸位高手帮帮忙啊！！！！！！！！！

#7

pacocai2007-03-27 09:28

贴语句………………

如果按照书上写的应该不太可能会出错，最大的问题就是你的语句错了。贴上了大家看看就明了。

#8

无知的小孩2007-03-27 09:53

如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
ListItem:TListItem;
begin
ADOQuery1.Close;
ADOConnection1.Connected := true;
ADOQuery1.Active := false;
adoquery1.SQL.Clear;
adoquery1.SQL.Text := 'select * from table1';
ADOQuery1.Open;
ADOQuery1.active := true;
if not ADOQuery1.IsEmpty then
begin
for i:=0 to ADOQuery1.FieldCount-1 do
ListView1.Columns.Add.Caption:=ADOQuery1.Fields[i].FieldName;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
ListItem:=listview1.Items.Add;
ListItem.Caption:=ADOQuery1.Fields.Fields[0].AsString;
for i:=1 to ADOQuery1.FieldCount-1 do
ListItem.SubItems.append(ADOQuery1.Fields.Fields[i].AsString);
ADOQuery1.Next;
end;
end;
end;
高手帮看看吧！我是菜鸟一个！！！！！！！！

#9

sgliuxiu2007-03-27 12:59

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
ListItem:TListItem;
begin
ADOQuery1.Close;
ADOConnection1.Connected := true;
ADOQuery1.Active := false;
adoquery1.SQL.Clear;
adoquery1.SQL.Text := 'select * from table';
ADOQuery1.Open;
ADOQuery1.active := true;

if not ADOQuery1.IsEmpty then
begin
for i:=0 to ADOQuery1.FieldCount-1 do
ListView1.Columns.Add.Caption:=ADOQuery1.Fields[i].FieldName;
ADOQuery1.First;

while not ADOQuery1.Eof do
begin

for i:=0 to ADOQuery1.FieldCount-1 do
begin

ListItem := listview1.Items.Add;
ListItem.Caption := ADOQuery1.Fields.Fields[i].AsString;
ListItem.SubItems.Add(ADOQuery1.Fields.Fields[i].AsString);

end;
ADOQuery1.Next;
end;
end;
end;

[此贴子已经被作者于2007-3-27 13:24:55编辑过]

#10

无知的小孩2007-03-27 15:09

小妹在此跪谢高手！
可是有个很奇怪的现象，我的表比如是这样的：
1 2 3
4 5 6
7 8 9
0 10 11
12 13 14
结果显示的是1 5 9
0 13 ...
为什么会这样呢？

#11

无知的小孩2007-03-27 16:01

我弄好了，是listview框太小了

#12

pacocai2007-03-27 23:08

#13

无知的小孩2007-03-29 14:17

总之，在此多谢九楼版主

#14

xmf2007-04-29 10:58

到编程先锋上去看看吧！
http://www.bcxf.cn