《从VB6使用DataGrid撰写程式存取SQLServer.pptVIP

從VB6使用DataGrid撰寫程式存取SQL Server T.Q. LEE Dim rs1 As ADODB.Recordset Dim CnStr As String Private Sub Form_Load() Set rs1 = New ADODB.Recordset CnStr = Provider=SQLOLEDB;DATA SOURCE=LOCALHOST;Integrated Security=SSPI;Initial Catalog=Northwind rs1.Open Categories , CnStr, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 End Sub Private Sub DataGrid1_Click() Label1.Caption = DataGrid1.Bookmark End Sub Private Sub Form_Load() Set rs1 = New ADODB.Recordset CnStr = Provider=SQLOLEDB;DATA SOURCE=.;Integrated Security=SSPI;I