VB日记

简单的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