|
|
Postada em 02/12/2005 15:33 hs
Olá a todos... Estou a algum tempo sem trabalhar com VB entaum ainda estou meio perdido. Gostaria de saber como através de uma instruçaum SQL posso posicionar o ponteiro em um determinado registo de uma tabela para depois poder edita-lo??? Da maneira como estou fazendo naum estah funcionando, acho q naum tem nada a ver, estou usando uma instrução SELECT para localizar um determinado registo, esse eh localizado, mas qdo uso a instrução TABELA.EDIT recebo a msg de q naum existe nenhum registro atual. Desde jah agradeço qualquer ajuda.
_______________________________________________________________________ Se vc pensa q pode, ou se vc pensa q não pode, de qualquer forma vc está certo... ProgrammerMan
|
|
|
|
|
|
Zoltran
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 02/12/2005 19:12 hs
vê se funciona....
RG=text1
Set RstSql = New ADODB.Recordset
StrSql = "Select * from tbl_ac where rg_cia = " & "'" & RG & "'" & "
With RstSql
.Open StrSql, db, adOpenKeyset, adLockOptimistic
!nome_guerra = text2
.Update
.Close
Set RstSql = Nothing
End With
|
|
|
|
Zoltran
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/12/2005 19:15 hs
vê se funciona....
RG=text1
Set RstSql = New ADODB.Recordset
StrSql = "Select * from tbl_ac where rg_cia = " & "'" & RG & "'" & "
With RstSql
.Open StrSql, db, adOpenKeyset, adLockOptimistic if .eof = false then
!nome_guerra = text2 else 'msgbox endif
.Update
.Close
Set RstSql = Nothing
End With |
|
|
|
|
|
Postada em 02/12/2005 21:39 hs
Amigo, coloca pra gente o código q vc ta usando...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 06/12/2005 07:53 hs
Entaum, o código tah o seguinte: If dbgProdutos.Columns(1) <> "" Then
vPesqEx = "SELECT NFProdutos.* FROM NF INNER JOIN NFProdutos ON NF.NFNum = NFProdutos.NFNum WHERE NFProdutos.ProCod LIKE '" & dbgProdutos.Columns(1) & "'" Data2.DatabaseName = App.Path & "SysPress.mdb"
Data2.RecordSource = vPesqEx
Data2.Refresh
' Ateh aqui td bem, ele mostra o registro pesquisado em um DBGrid ' Soh q agora eu gostaria de editar esse registro pesquisado, soh q recebo a msg de q naum existe nenhum registro atual, gostaria de saber como deixar o ponteiro nesse registro, para edita-lo. tblNFProdutos.Edit tblNFProdutos("NFPCHECK") = "1"
Gostaria de deixar o ponteiro nesse registro como com uma busca feita com o SEEK por exemplo, soh q essa tabela naum possui chave primária e indice, entaum o SEEK fica de fora... Novamente agradeço...
_______________________________________________________________________ Se vc pensa q pode, ou se vc pensa q não pode, de qualquer forma vc está certo... ProgrammerMan
|
|
|
|
Rafael
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/06/2008 09:02 hs
Cara eu to com o msm problema q vc...
num sei se vc jah conseguiu resolver,mas se vcs puderem ajudar seria mto bom...
o código eh o seguinte:
Private Sub Form_Load()
Set banco = OpenDatabase(App.Path & "anco_sistema.mdb")
Dim strsql
strsql = "SELECT * FROM clientes"
Set tabela = banco.OpenRecordset(strsql)
tabela.MoveMin
If achou = 1 Then
'Se encontra o regitro, permite que este seja alterado
MsgBox "
tabela.Edit
o programa faz tudo menos a alteração da tabela pelo controle tabela.edit
|
|
|
|
