VB6 - DataGrid com SQL Server

[Alberto Silva 0]

Olá colegas,

 

Estou fazendo manutenção num sistema em VB6, agora usando o SQL Server. O problema é que não consigo preencher o DataGrid, acho que não estou parametrizando certo a string de conexão com o Adodc.

 

Alguém pode me ajudar?

 

Grato,

Alberto.

[Erley 0]

Olá segue um exemplo rapido de como exibir os dados no DataGrid

 

Set conBANCO = New ADODB.Connection

Set rstTABELA = New ADODB.Recordset

 

rstTABELA.CursorLocation = adUseClient

 

conBANCO.ConnectionString = "SUA STRING DE CONEXAO"

conBANCO.Open

 

rstTABELA.Open "SELECT * FROM TABELA", conBANCO, adOpenDynamic, adLockOptimistic

rstTABELA.MoveFirst

 

Set datagrid1.DataSource = rstTABELA

 

[]'s

Erley

[Nilson Cl. 0]

Meu Amigo

 

 

Usa esta Sub

 

Basta passar os parametro para ela, e a mesma sub ja pode formata as colunas do datagrid atravez de parametro de array.

 

'FILTRA COMMANDS

Sub Filtra(Data As Adodc, Grade As DataGrid, STRINGSQL$, Optional NomeCampo$, Optional Rotulos As Variant, Optional ColsInvisiveis As Variant, Optional ColunaMascara As Variant, Optional Mascara As Variant, Optional ColunaTamanho As Variant, Optional TamanhoColuna As Variant, Optional MoverFin&)

On Error GoTo ERRO

Dim CSum@, i%, ICONT&

 

Screen.MousePointer = vbHourglass

Data.ConnectionString = BDL.ConnectionString

Data.LockType = adLockReadOnly

Data.RecordSource = STRINGSQL

Set Grade.DataSource = Data

Data.Refresh

Grade.Refresh

 

If NomeCampo <> "" Then For i = 0 To UBound(Rotulos): Rotulos(i).Caption = Format(CSum, "###,##0.00"): Next

 

If Not IsMissing(ColsInvisiveis) Then

For i = 0 To UBound(ColsInvisiveis)

Grade.Columns(ColsInvisiveis(i)).Visible = False

Next

End If

 

If Not IsMissing(ColunaMascara) Then

For ICONT = 0 To UBound(ColunaMascara)

Grade.Columns(ColunaMascara(ICONT)).NumberFormat = Mascara(ICONT)

Next

End If

' tamanho do campo

If Not IsMissing(ColunaTamanho) Then

For ICONT = 0 To UBound(ColunaTamanho)

Grade.Columns(ColunaTamanho(ICONT)).Width = TamanhoColuna(ICONT)

Next

End If

Screen.MousePointer = vbDefault

Exit Sub

 

ERRO: If ERR.Number <> 0 Then

'If ERR.Number = -2147220992 Then GoTo Vai

If ERR.Number = -2147217865 Then

Msg "NOME DA TABELA INVALIDO.", vbInformation

ElseIf ERR.Number = -2147217900 Then Msg " COMANDO SQL INVALIDO.", vbInformation

Else: IError

End If

Screen.MousePointer = vbDefault

End If

End Sub