VB6.0数据库学习笔记

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim comm As New ADODB.Command

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

MsgBox Me.DataGrid1.Columns("username").CellValue(Me.DataGrid1.Bookmark) ’改变列时的事件

End Sub

Private Sub Form_Load()

conn.CursorLocation = adUseClient '注意，一定要的

conn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ‘2005

Set comm.ActiveConnection = conn

comm.CommandText = "SelectUsersDynamic" '执行带参数的存储过程

comm.CommandType = adCmdStoredProc

Dim pm As ADODB.Parameter

Set pm = New ADODB.Parameter

Set pm = comm.CreateParameter("@WhereCondition", adVarChar, adParamInput, 150, "issupplier=0")

comm.Parameters.Append pm

Set pm = comm.CreateParameter("@OrderByExpression", adVarChar, adParamInput, 150, "users.userid")

comm.Parameters.Append pm

Set rs = comm.Execute()

'rs.CursorType = adOpenKeyset

'rs.LockType = adLockOptimistic

'rs.Open "select userid,username from users", conn, adOpenKeyset, adLockOptimistic

Set Me.DataGrid1.DataSource = rs

Set rs = Nothing

Set conn = Nothing

End Sub