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 ID=sa;Initial Catalog=stock;Data Source=20081120-2113\SQLEXPRESS" ‘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