PREENCHER UM MSFLEXGRID BD SQL SERVER

PHANTOM 08/03/2016 17:59:22
#458814
Olá! Tenho um banco de dados SQL e preciso preencher os dados dentro de um msFlexGrid.
Já tenho a conexão com o banco e está funcionando. Achei alguns exemplos nos arquivos do site, mas não consegui compreender com o faz.
Já tenho o seguinte código:

Dim user, password, server, DB As String
Dim sql As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
------------------------------------------------
Private Sub cmd1_Click()
Connect
End Sub
------------------------------------------------
Private Sub Connect()

user = txtUser.Text
password = txtPassword.Text
server = txtServer.Text
DB = txtDB.Text

cn.Provider = [Ô]SQLOLEDB[Ô]
cn.Properties([Ô]Data Source[Ô]).Value = server
cn.Properties([Ô]Initial Catalog[Ô]).Value = DB
cn.Properties([Ô]User ID[Ô]).Value = user
cn.Properties([Ô]Password[Ô]).Value = password

cn.Open

Form1.Caption = [Ô]Success![Ô]

sql = [Ô]Select cod_empresa, nome from empresas[Ô]
rs.Open sql, cn, adOpenForwardOnly, adLockPessimistic


End Sub
--------------------------------------
Private Sub show_data()

End Sub
--------------------------------------
Private Sub cmd2_Click()
show_data
End Sub
OMAR2011 08/03/2016 18:23:47
#458815 Resposta escolhida
Você está enganado quanto a DATAGRIDVIEW e Datagrid.
Isto porque no vb6 não existe DATAGRIDVIEW e sim Datagrid.
Tópico encerrado , respostas não são mais permitidas
Voltar