select * from tb where id='1' 然后有一列列名是QQ string qq=我查出来的QQ那列的值
declare @values table(qq nvarchar(200)) insert into @values select qq from TB select * from @values
declare @qq varchar(200) select @qq = qq from TB where id=119 select @qq
CREATE PROC p_t AS BEGIN declare @s nvarchar(4000) set @s='' select @s=@s+','+qq from tb select (stuff(@s,1,1,'')) END exec p_t
可以创建一个表,然后用查询出来的数据填充到表中,在读取表中数据。 例: public DataTable admin_chaxun(string sqlstr) { SqlConnection conn = myconn(); conn.Open(); SqlDataAdapter sda = new SqlDataAdapter(sqlstr,conn); DataTable dt = new DataTable(); sda.Fill(dt); conn.Close(); conn.Dispose(); return dt; } 然后在读取表中的数据,其中CONN为你的数据连接,自己改写。
sql="select QQ from talbe" set rs=cn.Execute (sql) Open App.Path & "\ QQ号码.txt" For Output As #1 '输出到文本文件 print #1,"QQ号码" do while not eof print #1,rs.Fields(0) rs.MoveNext loop close #1 或者加累加给字符串 dim str as string ....... sql="select QQ from talbe" set rs=cn.Execute (sql) str=rs.fields(0) rs.MoveNext do while not eof str=str + ","+rs.fields(0) rs.MoveNext loop 生成的str就是以","隔开的字符串 这是用VB写出来的代码
declare @values varchar(8000) set @values='' select @values =case when @values<>'' then values+','+isnull(qq,'') else values+isnull(qq,'') end from TB select @values
select @values = qq,name,email from TB
print @values
然后有一列列名是QQ
string qq=我查出来的QQ那列的值
insert into @values
select qq from TB
select * from @values
declare @qq varchar(200)
select @qq = qq from TB where id=119
select @qq
AS
BEGIN
declare @s nvarchar(4000)
set @s=''
select @s=@s+','+qq from tb
select (stuff(@s,1,1,''))
END
exec p_t
例:
public DataTable admin_chaxun(string sqlstr) {
SqlConnection conn = myconn();
conn.Open();
SqlDataAdapter sda = new SqlDataAdapter(sqlstr,conn);
DataTable dt = new DataTable();
sda.Fill(dt);
conn.Close();
conn.Dispose();
return dt;
}
然后在读取表中的数据,其中CONN为你的数据连接,自己改写。
set rs=cn.Execute (sql)
Open App.Path & "\ QQ号码.txt" For Output As #1 '输出到文本文件
print #1,"QQ号码"
do while not eof
print #1,rs.Fields(0)
rs.MoveNext
loop
close #1
或者加累加给字符串
dim str as string
.......
sql="select QQ from talbe"
set rs=cn.Execute (sql)
str=rs.fields(0)
rs.MoveNext
do while not eof
str=str + ","+rs.fields(0)
rs.MoveNext
loop
生成的str就是以","隔开的字符串
这是用VB写出来的代码
set @values=''
select @values =case when @values<>'' then values+','+isnull(qq,'') else
values+isnull(qq,'') end from TB
select @values