UC知道VB数据存在文本里
来源：百度知道 编辑：UC知道 时间：2024/06/14 16:05:37
我要把数据库所有的记录都取出来，然后仿照XML存成TXT格式的，我现在只会连接数据库，请问接下来该怎么做啊，大家帮帮忙
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\PersonalDataTemp.mdb;Persist Security Info=False;Jet OLEDB:Database password=SP*!"
rs.CursorLocation = adUseClient
rs.Open "select * from Personalinfo", cnn, adOpenDynamic, adLockPessimistic
If rs.RecordCount > 0 Then
'这里怎么把数据循环取出来放在数组里啊'
End If
保存文件呢,谢谢
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\PersonalDataTemp.mdb;Persist Security Info=False;Jet OLEDB:Database password=SP*!"
rs.CursorLocation = adUseClient
rs.Open "select * from Personalinfo", cnn, adOpenDynamic, adLockPessimistic
If rs.RecordCount > 0 Then
'这里怎么把数据循环取出来放在数组里啊'
End If
保存文件呢,谢谢
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\PersonalDataTemp.mdb;Persist Security Info=False;Jet OLEDB:Database password=SP*!"
rs.CursorLocation = adUseClient
rs.Open "select * from Personalinfo", cnn, adOpenDynamic, adLockPessimistic
Dim MyData()
If rs.RecordCount > 0 Then
ReDim MyData(1 to Rs.RecordCount)
'这里怎么把数据循环取出来放在数组里啊'
For i=1 to Rs.RecordCount
MyData(i)=Rs("想取的字段名")
Rs.MoveNext
Next
End If
'至于保存为文本文件,可以用:
Open "C:\1.txt" For output As #1
For i=1 to Ubound(MyData)
Print #1, MyDatA(i)
Next
Close #1
do....loop
你刚才不是问过了吗？
dim i as integer
dim sTemp() as string
if rs.eof=false then