CRIANDO UMA ARRAY PARA IMPRESSAO
Pessoal, preciso imprimir numa array de label todos os registros de uma consulta.
SQL = [Ô]Select ACESSORIO, COD_OS FROM OS_ACESSORIOS WHERE COD_OS = [Ô] & txtCodOS.Text & [Ô][Ô]
tenho uma array de 10 label.... lblAcessorio(0), lblAcessorio(1), lblAcessorio(2), etc
A ideia seria colocar nos label.caption todos os acessorios que COD_OS = [Ô] & txtCodOS.Text & [Ô]
Sendo, que ele tem q limpar os label's antes...
Como eu faria para montar esse preenchimento?
SQL = [Ô]Select ACESSORIO, COD_OS FROM OS_ACESSORIOS WHERE COD_OS = [Ô] & txtCodOS.Text & [Ô][Ô]
tenho uma array de 10 label.... lblAcessorio(0), lblAcessorio(1), lblAcessorio(2), etc
A ideia seria colocar nos label.caption todos os acessorios que COD_OS = [Ô] & txtCodOS.Text & [Ô]
Sendo, que ele tem q limpar os label's antes...
Como eu faria para montar esse preenchimento?
SELECT
[ô]VARIAVEIS
Dim selectCC As String
Dim ConnectionString As String
Dim strConn As SqlConnection
Dim myCommand As SqlCommand
Dim dr As SqlDataReader
[ô]SQL
ConnectionString = [Ô]Data Source =servidor1; Initial Catalog =BANCO; User Id =USUARIO; Password =SENHA[Ô]
strConn = New SqlConnection(ConnectionString)
strConn.Open()
selectCC = [Ô]SELECT * FROM TABELA [Ô]
myCommand = New SqlCommand(selectCC, strConn)
dr = myCommand.ExecuteReader()
While (dr.Read())
[ô]DropDownUnidades.Items.Add(dr([Ô]nmUnidade[Ô]).ToString)
LABEL1.TEXT=dr([Ô]nmUnidade[Ô]).ToString)
LABEL2.TEXT=dr([Ô]nmUnidade[Ô]).ToString)
End While
strConn.Close()
[ô]LIMPAR CAMPOS
LABEL1.TEXT=[Ô][Ô]
Pode colocar no select antes do While tbm ou no load onde preferir.
[ô]VARIAVEIS
Dim selectCC As String
Dim ConnectionString As String
Dim strConn As SqlConnection
Dim myCommand As SqlCommand
Dim dr As SqlDataReader
[ô]SQL
ConnectionString = [Ô]Data Source =servidor1; Initial Catalog =BANCO; User Id =USUARIO; Password =SENHA[Ô]
strConn = New SqlConnection(ConnectionString)
strConn.Open()
selectCC = [Ô]SELECT * FROM TABELA [Ô]
myCommand = New SqlCommand(selectCC, strConn)
dr = myCommand.ExecuteReader()
While (dr.Read())
[ô]DropDownUnidades.Items.Add(dr([Ô]nmUnidade[Ô]).ToString)
LABEL1.TEXT=dr([Ô]nmUnidade[Ô]).ToString)
LABEL2.TEXT=dr([Ô]nmUnidade[Ô]).ToString)
End While
strConn.Close()
[ô]LIMPAR CAMPOS
LABEL1.TEXT=[Ô][Ô]
Pode colocar no select antes do While tbm ou no load onde preferir.
Dim i as integer
dim sql as string
dim Rs as ADODB.Recordset
[ô]limpar
For i = 0 to 9
lblAcessorio(i).Caption = [Ô][Ô]
Next i
[ô]carga
[ô]i=0
SQL = [Ô]Select ACESSORIO, COD_OS FROM OS_ACESSORIOS WHERE COD_OS = [Ô] & txtCodOS.Text & [Ô][Ô]
Set Rs = New ADODB.Recordset
Rs.open SQL, Cn1, adOpenDynamic, adLockReadOnly
Do Until Rs.Eof()
if i < 10 Then
lblAcessorio(i).Caprion = Rs!ACESSORIO
Endif
Rs.MoveNext
i = i + 1
Loop
Rs.Close
dim sql as string
dim Rs as ADODB.Recordset
[ô]limpar
For i = 0 to 9
lblAcessorio(i).Caption = [Ô][Ô]
Next i
[ô]carga
[ô]i=0
SQL = [Ô]Select ACESSORIO, COD_OS FROM OS_ACESSORIOS WHERE COD_OS = [Ô] & txtCodOS.Text & [Ô][Ô]
Set Rs = New ADODB.Recordset
Rs.open SQL, Cn1, adOpenDynamic, adLockReadOnly
Do Until Rs.Eof()
if i < 10 Then
lblAcessorio(i).Caprion = Rs!ACESSORIO
Endif
Rs.MoveNext
i = i + 1
Loop
Rs.Close
Tópico encerrado , respostas não são mais permitidas