我的远程SQL IP:168.128.64.1  库名:SQ  密码:123456  要查询的表:XueHao 
请问我该怎么写 查询好写好以后要不要退出呢?

解决方案 »

  1.   

    adoconnection的连接字符串为Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=SQ;Initial Catalog=DBName;Data Source=168.128.64.1
    然后直接查询就行
    select * from xuehao
      

  2.   

    我第1次写SQL 希望能够提供段完整的代码 我能学习下 
    就是查询好以后退出连接
      

  3.   

    如果我点 Button1后实现 连接该SQL IP:168.128.64.1  库名:SQ  密码:123456  要查询的表:XueHao
    查寻出来的结果显示在showmessage 后关闭连接 怎么写?  
      

  4.   

    这不是一个代码可以搞定的事情.你的问题比较难说明白一点.要完成这个事情,你必须做几件事情:
    1.在你需要查询的窗口中(就是BUTTON1所在的窗口中)添加一个adoconnection,就是在DELPHI中上面ADO项目中的一个东西,然后在添加一个ADOQuery,也是ADO中的东西,这两个东西分被叫adoconnection1和ADOQuery1(这是自动命名);
    2.然后你需要选中ADOQuery1,在左边的选择项目中有一个Connection这么一各项,用老鼠去点一下,你会发现一个选择项目就叫"adoconnection1",把它选择进去;
    3.再用老鼠连点两下adoconnection1(BUTTON1所在的窗口中,并且是你在第一步的时候才加上去的那个),会弹一窗口,选下面那个选项,然后点BUILD..钮在新出来的窗口中选择"Microsoft OLD DB Provider for SQL Server"然后下一步;
    4.在最上面的地方输入"168.128.64.1",然后选择"使用指定的用户名称和密码"再在用户名中填写:SQ,密码填写:123456,然后再选"在服务器上选择数据库",若你的远程SQL活着并能访问,那么点一下旁边的下拉就可以找到你在服务器中,并且是XUEHAO表所在的数据库,选择那个数据库(你没有告诉我叫什么数据库);然后在左边的选择项中找到"LoginPrompt"项目,将它旁边的改为"False";
    5.选中BUTTON1,在左边的属性框中选择"EVENTS"页,找到"OnClick",用老鼠连点它旁边的白的地方两下,然后你会发现新的可写程序的地方出来了;
    6.假设你的XUEHAO表中有一个字段(xing_ming),并且有记录,那么你用如下代码就可以了:
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select xing_ming from xuehao');
    ADOQuery1.Open;
    showmessage(TRIM(f_Datamodule.ADOQuery1.FieldByName('xing_ming').AsString));
    ADOQuery1.Close;
      

  5.   

    非常感谢cowboy_tt  超级详细 
    还有运行的时候showmessage(TRIM(f_Datamodule(错误停在这).ADOQuery1.FieldByName( 'xing_ming ').AsString)); 出错
      

  6.   

    ADOQuery1.Close; 
    ADOQuery1.SQL.Clear; 
    ADOQuery1.SQL.Add( 'select xing_ming from xuehao '); 
    ADOQuery1.Open; 
    showmessage(TRIM(f_Datamodule.ADOQuery1.FieldByName( 'xing_ming ').AsString)); 
    ADOQuery1.Close;
    ====================
    ADOQuery1.Close; 
    ADOQuery1.SQL.Clear; 
    ADOQuery1.SQL.Add( 'select xing_ming from xuehao '); 
    ADOQuery1.Open;
    if recordcount<>0 then
      showmessage(TRIM(f_Datamodule.ADOQuery1.FieldByName( 'xing_ming ').AsString)); 
      else showmessage('记录为空!');
    ADOQuery1.Close;