可以的 给你一个实例: 你可以使用VB的ADO对对象来搞定。 你首先要在VB菜单中: “工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.X Library” 注:2.X为版本号,如果你机子上有高版本的就用高版本的,如:2.5或2.6的示例: private sub command1_click() dim cn as new adodb.Connection dim rs as new adodb.recordset dim sqlstr as string cn.open "Provider=SQLOLEDB;Driver={SQL Server};Server=Server;Uid=sa" & _ ";Pwd=1;Database=data" rs.cursorlocation=aduseclient rs.open "select * from XXX",cn,3,3 rs.save "d:\mydata\data.xml",adPersistXML'保存成xml文件 rs.close rs.open "d:\mydata\data.xml",cn,AdOpenDynamic,AdLockBatchOptimistic,adCmdFile'打开xml文件 msgbox "共有:" & rs.recordcount & "条记录!!!" rs.close set rs=nothing cn.close set cn=nothing end sub
给你一个实例:
你可以使用VB的ADO对对象来搞定。
你首先要在VB菜单中:
“工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.X Library”
注:2.X为版本号,如果你机子上有高版本的就用高版本的,如:2.5或2.6的示例:
private sub command1_click()
dim cn as new adodb.Connection
dim rs as new adodb.recordset
dim sqlstr as string
cn.open "Provider=SQLOLEDB;Driver={SQL Server};Server=Server;Uid=sa" & _
";Pwd=1;Database=data"
rs.cursorlocation=aduseclient
rs.open "select * from XXX",cn,3,3
rs.save "d:\mydata\data.xml",adPersistXML'保存成xml文件
rs.close
rs.open "d:\mydata\data.xml",cn,AdOpenDynamic,AdLockBatchOptimistic,adCmdFile'打开xml文件
msgbox "共有:" & rs.recordcount & "条记录!!!"
rs.close
set rs=nothing
cn.close
set cn=nothing
end sub
例如:
line0:
line01:100
line02:200
line03:300
line1:
line11:1000
line12:2000
line13:300
line14:144
其中line等是开始写上去的,后面的数字是来自数据库的,这样的话我该怎么做呢?