EXIBINDO O VALOR DE UM CAMPO SQL
Boa noite pessoal, normalmente uso para exibir o valor de um campo do banco de dados MySQL o seguinte código:
Dim rs As ADODB.Recordset
Dim sql As String
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open [Ô]select * from ultimoscodigos Where Empresa =[Ô] & CódigoEmpresa, conn, adOpenStatic, adLockOptimistic, adCmdText
Text2.Text = rs!colaboradores
no caso ele vai exibir o valor do campo colaboradores no text2. Até aà tudo bem...
é possÃvel exibir o valor do campo através de uma conexão direta?
Set conn = New ADODB.Connection
conn.ConnectionString = [Ô]Driver=MySQL ODBC 5.1 Driver; DataBase=[Ô] & BancodeDados & [Ô]; Server=[Ô] & Servidor & [Ô]; Uid=[Ô] & UsuárioBanco & [Ô]; Password=[Ô] & SenhaBanco
conn.Open
conn.Execute [Ô]UPDATE ultimoscodigos SET colaboradores = colaboradores + 1 Where Empresa =[Ô] & CódigoEmpresa [ô] atualiza o último código
text2.text = ???????????
obrigado por enquanto...
Dim rs As ADODB.Recordset
Dim sql As String
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open [Ô]select * from ultimoscodigos Where Empresa =[Ô] & CódigoEmpresa, conn, adOpenStatic, adLockOptimistic, adCmdText
Text2.Text = rs!colaboradores
no caso ele vai exibir o valor do campo colaboradores no text2. Até aà tudo bem...
é possÃvel exibir o valor do campo através de uma conexão direta?
Set conn = New ADODB.Connection
conn.ConnectionString = [Ô]Driver=MySQL ODBC 5.1 Driver; DataBase=[Ô] & BancodeDados & [Ô]; Server=[Ô] & Servidor & [Ô]; Uid=[Ô] & UsuárioBanco & [Ô]; Password=[Ô] & SenhaBanco
conn.Open
conn.Execute [Ô]UPDATE ultimoscodigos SET colaboradores = colaboradores + 1 Where Empresa =[Ô] & CódigoEmpresa [ô] atualiza o último código
text2.text = ???????????
obrigado por enquanto...
Olha Amigo,
Acredito que sem abrir um RECORDSET você não tem como acessar.
Fundamentos do ADO, isso é um pensamento meu, não tenho nenhum embasamento tecnico para lhe passar.
Acredito que sem abrir um RECORDSET você não tem como acessar.
Fundamentos do ADO, isso é um pensamento meu, não tenho nenhum embasamento tecnico para lhe passar.
Verdade, é uma coisa óbvia... mas achei que poderia haver alguma magia... he he he
Vê se isso ajuda:
Esta é a função para pegar o valor
Para chamar:
ou
Fazendo algumas adaptações, pode chegar à sua necessidade
Esta é a função para pegar o valor
Function VlrRs(Sql As String) As ADODB.Recordset
Dim Rs As New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open Sql, conn, adOpenKeyset, adLockPessimistic
Set VlrRs = Rs
End FunctionPara chamar:
Text1.Text = VlrRs([Ô]Select * From Todos[Ô]).RecordCountou
Dim sSql As String
sSql = [Ô]Select * From Todos[Ô]
Text2.Text = VlrRs(sSql)(1)Fazendo algumas adaptações, pode chegar à sua necessidade
O objeto TEXT não tem o recurso para adicionar o comando SQL.
Terá que exibir o valor após nova consulta ou fazer uma consulta dinâmica mantendo o recordest sempre aberto.
Aconselho você a guardar estes valores a serem exibidos e atualizar o TEXT ao mesmo tempo que atualiza o banco:
conn.Execute [Ô]UPDATE ultimoscodigos SET colaboradores = colaboradores + 1 Where Empresa =[Ô] & CódigoEmpresa [ô] atualiza o último código
text2.text = text2.text + 1
Terá que exibir o valor após nova consulta ou fazer uma consulta dinâmica mantendo o recordest sempre aberto.
Aconselho você a guardar estes valores a serem exibidos e atualizar o TEXT ao mesmo tempo que atualiza o banco:
conn.Execute [Ô]UPDATE ultimoscodigos SET colaboradores = colaboradores + 1 Where Empresa =[Ô] & CódigoEmpresa [ô] atualiza o último código
text2.text = text2.text + 1
Tópico encerrado , respostas não são mais permitidas