Hallo,
bin relativer Neuling im Bereich VB, will aber aus einem SQL Server Daten aus einer Tabelle in einem VB Formular anzeigen. Hierzu denke ich ist ein DataGrid das sinvollste. Habe zum testen ein Formular mit einem Datagrid und einem Command Button aufgebaut und folgenden Code hinterlegt, jedoch wird beim klich auf den Button das DataGrid überhaupt nicht gefüllt? Kann mir bitte hierbei einer helfen!!
EDIT: Habe mein Fehler selbst gefunden. Mit dem rs.close schließe ich den Recordset und somit wird auch in der Tabelle nichts mehr angezeigt!
bin relativer Neuling im Bereich VB, will aber aus einem SQL Server Daten aus einer Tabelle in einem VB Formular anzeigen. Hierzu denke ich ist ein DataGrid das sinvollste. Habe zum testen ein Formular mit einem Datagrid und einem Command Button aufgebaut und folgenden Code hinterlegt, jedoch wird beim klich auf den Button das DataGrid überhaupt nicht gefüllt? Kann mir bitte hierbei einer helfen!!
Code:
Option Explicit
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Private Sub Command1_Click()
Set Rs = New ADODB.Recordset
With Rs
.ActiveConnection = Cn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "Select ID, Name FROM Person"
.Open
End With
Rs.MoveFirst
Do
Set Me.DataGrid.DataSource = Rs
Rs.Close
End Sub
Private Sub Form_Load()
Set Cn = New ADODB.Connection
With Cn
.CursorLocation = adUseClient
.Provider = "SQLOLEDB.1"
.Properties("Data Source") = "XXXXXXXX"
.Properties("Initial Catalog") = "XXXXX"
.Properties("User ID") = "XXXXX"
.Properties("Password") = "XXXXX"
.Open
End With
End Sub
EDIT: Habe mein Fehler selbst gefunden. Mit dem rs.close schließe ich den Recordset und somit wird auch in der Tabelle nichts mehr angezeigt!
Zuletzt bearbeitet: