COLETANDO O CONTEUDO STRINGCONEXAO

AYRES 21/12/2006 14:38:11
#191504
pessoal acredito que seja simples...
como pego o conteudo dessa string?

Dim sqlmodelo As String = "Select [padrao],[layout],[esquematico],[manual] from modlogado where aparelho = v3 "

no caso eu quero pegar o conteudo do [padrao] e atribuir num textbox1.text
via codigo!
como era mesmo?? hehe
RAMSES 21/12/2006 17:48:07
#191579 Resposta escolhida
nao entendi muito bem a tua pergunta,tem como explciar melhor ?
AYRES 21/12/2006 17:54:56
#191586
vamos la!

eu gostaria pegar o conteudo de [padrao] from tabela1 where aparelho = v3

pego esse conteudo gostaria atribuir no textbox

tipo textbox1.text = [padrao], pois so tera um registro

entendeu?
RAMSES 21/12/2006 18:02:50
#191591
mas para isso tu ta abrindo a conexao e executando algum command ou datareader ?
AYRES 21/12/2006 18:12:42
#191593
estou usando assim

Private conn As OleDbConnection
Private dAdapter As OleDbDataAdapter
Private dvm As DataViewManager
Private dset As DataSet

 Function criaStringConexao() As String
        Dim stringConexao As String
        stringConexao = "Data Source =C:\Analyzer\BD\profile.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
        Return stringConexao
    End Function


e essa funcao no load
 Private Sub preencheCombo()
        Try
            'abre a conexão com o banco de dados
            conn = New OleDbConnection(criaStringConexao)
            conn.Open()
        Catch ex As OleDbException
            ' MessageBox.Show(("Erro na conexão ..." + ex.Message))'pegua o erro
            MessageBox.Show(("Erro na conexão ..." & vbCrLf & "Favor solicitar Suporte a Informática!"))


        End Try

        Dim sqlStr As String = "SELECT * FROM " + modelo + ""

        'Instancia um DataAdapter passandoo a instrucao SQL e a conexão
        dAdapter = New OleDbDataAdapter(sqlStr, conn)

        'Instancia o dataset
        dset = New DataSet()

        'Obtem a Coleção que fornece o mapeamento mestre
        ' entre a tabela fonte e o datatable
        dAdapter.TableMappings.Add("Table", "v3")

        'Usa um data adapter para preencher o dataset ou datable com
        ' os dados retornados da instrução
        dAdapter.Fill(dset)
        'Quando vinculamos um DataSet, a plataforma .NET automaticamente usa o
        'DataViewManager correspondente fornecido atraves da propriedade DataSet.DefaultViewManager
        Me.dvm = dset.DefaultViewManager

        Me.ComboMeas.DataSource = Me.dvm
        'exibe a "tabelaClientes.CompanyName no ComboBox
        Me.ComboMeas.DisplayMember = "v3.MeasCode"
        Me.ComboMeas.ValueMember = "v3.MeasCode"

        'Efetua a vinculação com os controles TextBox
        Me.txtfalha.DataBindings.Add("Text", Me.dvm, "v3.defeito")
        Me.txtprocesso.DataBindings.Add("Text", Me.dvm, "v3.etapa")
        Me.txtdesfalha.DataBindings.Add("Text", Me.dvm, "v3.Description")
        Me.txtLow.DataBindings.Add("Text", Me.dvm, "v3.SpecLow")
        Me.txtResult.DataBindings.Add("Text", Me.dvm, "v3.MeasResult")
        Me.txtHigh.DataBindings.Add("Text", Me.dvm, "v3.SpecHigh")

        [txt-color=#ff0000]' #####################Define os pdf a serem abertos########################
        Dim sqlmodelo As String = "Select [padrao],[layout],[esquematico],[manual] from modlogado where aparelho = v3 "
        ' var. que consulta os pdf a serem abertos[/txt-color]


        pdfpadrao.LoadFile("\\betaserver\DB\v3.02\modelo\v3.pdf")
        pdfmanual.LoadFile(TextBox1.Text)
        pdflayout.LoadFile("layout")
        pdfesq.LoadFile("esquematico")


        ' fecha a conexão com o banco de dados
        Me.conn.Close()
    End Sub


podemos perceber que a tabela carrega os itens da combo vinculado com umas textbox, ate ai norma!

agora eu crriei uma string que esta em vermelho que faz outra consulta em outra tabela, mas usando o mesmo ambiente de dados.
a ideia é pegar o conteudo [padrao] e passar para um textbox, feito isso ajusto aqui para o componente pdf ler o diretorio

entendeu?
RAMSES 21/12/2006 18:16:00
#191595
tu carrega isso em um datatable,dataset ou datarow ?
AYRES 21/12/2006 18:18:13
#191596
nesse exempo é dataset
ALMARTI 21/12/2006 18:19:44
#191598
Olha se é o que voce quer

Dim iStr As String
Dim strTmp As String
Dim i As Integer

iStr = "Select [padrao],[layout],[esquematico],[manual] from modlogado where aparelho = v3 "

For i = 1 To Len(iStr)
If Mid(iStr, i, 1) = "[" Then
For j = i To Len(iStr)
strTmp = strTmp & Mid(iStr, j, 1)
If Mid(iStr, j, 1) = "]" Then
Exit For
End If
Next
ElseIf Mid(iStr, i, 1) = "]" Then
Exit For
End If
Next

MsgBox strTmp

Neste caso, so vai pegar a primeira sequencia [ e ]
RAMSES 21/12/2006 18:20:18
#191600 
NomeDataSet.Tables(NomeDaTabela).Rows(0)("padra").tostring
AYRES 21/12/2006 18:26:56
#191604
ramses
eu coloquei assim
Dim sqlmodelo As String = "Select [padrao],[layout],[esquematico],[manual] from modlogado where aparelho = v3 "
' var. que consulta os pdf a serem abertos
TextBox1.Text = dset.Tables(modlogado).Rows(0)("padrao").tostring


da erro da tabela nao declarado
baseado no fonte encima o que sera que estou errando?
RAMSES 21/12/2006 18:35:31
#191609
chego a criar a conexao,command e executar tudo o de antes ?
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar