INSTRUCAO SQL EM TEMPO DE EXECUCAO

USUARIO.EXCLUIDOS 06/02/2007 13:56:52
#202184
caros amigos, venho por meio deste a resolver meus problemas...

tenho o seguiinte código..

Por cada setor tenho um código e através deste código montar uma estrutura sql em um data adapter já existente

tipo assim
se o setor=1 quero que o oledbdataadapter1 tenha a seguinte instrução sql

select * from tabequipamento where codcadastro>=1 and codsetor = &setor&

onde o &setor e uma variavel do tipo byte

e quero preencher o datra adapter em tempo de execução...

If txtsetor.Text = "Raymond 5057" Then
setor = 1
Me.Text = Me.Text & " " & txtsetor.Text
ElseIf txtsetor.Text = "Raymond 6058" Then
setor = 2
Me.Text = Me.Text & " " & txtsetor.Text
ElseIf txtsetor.Text = "Raymond 3036" Then
setor = 3
Me.Text = Me.Text & " " & txtsetor.Text
ElseIf txtsetor.Text = "Peneiramento de Grafite" Then
setor = 4
Me.Text = Me.Text & " " & txtsetor.Text
ElseIf txtsetor.Text = "Grafitização" Then
setor = 5
Me.Text = Me.Text & txtsetor.Text
ElseIf txtsetor.Text = "Secador" Then
setor = 6
Me.Text = Me.Text & " " & txtsetor.Text
ElseIf txtsetor.Text = "Peneiramento PA" Then
setor = 7
Me.Text = Me.Text & " " & txtsetor.Text
ElseIf txtsetor.Text = "Peneiramento Coque Verde" Then
setor = 8
Me.Text = Me.Text & " " & txtsetor.Text
ElseIf txtsetor.Text = "Moinho Bola" Then
setor = 9
Me.Text = Me.Text & " " & txtsetor.Text
End If



como faço isso???
abraços
USUARIO.EXCLUIDOS 06/02/2007 16:25:05
#202268 Resposta escolhida
Nao sei se entendi sua duvida, mas veja se isto funciona

Using objDA As New OleDb.OleDbDataAdapter
Using objCommand As New OleDb.OleDbCommand
Dim myCommand As String
objCommand.Connection = myobjConnection ' myobjConnection é seu Connection
myCommand = "SELECT * FROM Table...."
objCommand.CommandText = myCommand
objDA.SelectCommand = objCommand
End Using
End Using

T+
Tópico encerrado , respostas não são mais permitidas
Voltar