2.(上半部分) open FileName for binary as #1 put Text close 1Filename是你的txt文件,Text是内容。
3. Dim conn As ADODB.Connection Dim rst As ADODB.RecordsetSet conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.Open "链接字符串" Set rst = New ADODB.Recordset rst.CursorLocation = adUseClient rst.CursorType = adOpenDynamic rst.LockType = adLockOptimistic
text1_changedtext2.text=text1.text
open FileName for binary as #1
put Text
close 1Filename是你的txt文件,Text是内容。
Dim conn As ADODB.Connection
Dim rst As ADODB.RecordsetSet conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "链接字符串"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open "表名", conn, , , adCmdTable
Set MSHFlexGrid1.DataSource = rst