VB6: DataGrid에 SQLite를 표시하는 방법

Question

Private Sub Form_Load()
Dim sqlstr As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER=SQLite3 ODBC Driver;Database=" & App.Path & "/database.db;"
conn.Open

rs.Open "SELECT * FROM tblGiat", conn, adOpenKeyset

MsgBox "Total Number of records = " & rs.RecordCount

End Sub

데이터베이스를 VB6에 성공적으로 연결했습니다. 이제 해당 데이터베이스를 DataGrid에 표시하는 방법에 대한 도움이 필요합니다.

Answer 1

Private Sub Form_Load()
Dim sqlstr As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER=SQLite3 ODBC Driver;Database=" & App.Path & "/database.db;"
conn.Open

rs.Open "SELECT * FROM tblGiat", conn, adOpenKeyset

MsgBox "Total Number of records = " & rs.RecordCount

Set DataGrid1.DataSource = rs

End Sub