chkBox.Value = 1 (отмечено)
chkBox.Value = 0 (не отмечено)
chkBox.Value = 0 (не отмечено)
sql - запрос к базе данных
cn - соединение с базой данных (ADODB.connection)
rcd - рекордсет (ADODB.Recordset)
sql = ""
sql = "SELECT * FROM dbTableName"
rcd.Open sql, cn, adOpenStatic
rcd.MoveFirst
While Not rcd.EOF
MsgBox rcd("TableFieldValue")
rcd.MoveNext
Wend
cn - соединение с базой данных (ADODB.connection)
rcd - рекордсет (ADODB.Recordset)
sql = ""
sql = "SELECT * FROM dbTableName"
rcd.Open sql, cn, adOpenStatic
rcd.MoveFirst
While Not rcd.EOF
MsgBox rcd("TableFieldValue")
rcd.MoveNext
Wend
rcd - рекордсет (ADODB.Recordset)
If rcd.State = adStateOpen Then
rcd.Close
End If
If rcd.State = adStateOpen Then
rcd.Close
End If
Exit Sub
Exit Function
Exit Function
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, TristateFalse)
f.Write "Hello world!"
f.Close
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.CreateTextFile("c:\testfile.txt", True)
fil.Close
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, TristateFalse)
f.Write "Hello world!"
f.Close
Dim fso As New FileSystemObject
Dim fil As File
Set fil = fso.CreateTextFile("c:\testfile.txt", True)
fil.Close
ClipBoard.Clear
ClipBoard.SetText "Какое-нибудь сообщение"
ClipBoard.SetText "Какое-нибудь сообщение"
