简单的VB连接DATAGRID
Dim res As ADODB.Recordset
Set res = New ADODB.Recordset
res.CursorLocation = adUseClient
res.Open "select * FROM table1", _
"Provider=SQLOLEDB.1;server=.;uid=sa;pwd=;database=MyData", _
adOpenStatic, _
adLockOptimistic
Set DataGrid1.DataSource = res
Combo1的使用
If Not res.EOF Then
res.MoveFirst
While Not res.EOF
Combo1.AddItem res.Fields("name").Value & ""
res.MoveNext
Wend
End If
'写文件:
Open "D:/文件.txt" For Append As #1 '''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入
Print #1, "end" '''如果print换成write则写进txt中后自动加双引号
Close #1
'读文件
Dim inp As String
Open "文件路径如c:/ff.txt" For Input As #1
Input #1, inp
Close #1