一条查询的返回的值就是一个数据库的表了。 可以用create database建一个新的数据库 用select from into 将查询结果写入数据库就行了。
Dim strTmp As String Dim rs As New ADODB.Recordset
Open "C:\aa.txt" For Output As #1 rs.Open "select * from tablename where NAME like '张三'", cn, adOpenForwardOnly, adLockReadOnly While Not rs.EOF strTmp = strTmp & rs!Name & vbTab & rs!AGE & vbTab & rs!SEX & vbCrLf '还有什么字段自己加吧 Print #1, strTmp
rs.MoveNext Wend Close #1'怎么传到SERVER或者通过什么方式,你自己想一下吧~~
可以用create database建一个新的数据库
用select from into 将查询结果写入数据库就行了。
Dim rs As New ADODB.Recordset
Open "C:\aa.txt" For Output As #1
rs.Open "select * from tablename where NAME like '张三'", cn, adOpenForwardOnly, adLockReadOnly
While Not rs.EOF
strTmp = strTmp & rs!Name & vbTab & rs!AGE & vbTab & rs!SEX & vbCrLf '还有什么字段自己加吧
Print #1, strTmp
rs.MoveNext
Wend
Close #1'怎么传到SERVER或者通过什么方式,你自己想一下吧~~