RECORDSET COM SQL

IRENKO 24/05/2007 12:40:46
#218084
Estou fazendo um cadastro de dados em um RecordSet desconectado. Agora, como faço uma consulta no mesmo atraves de uma query?

>Aqui eu crio o recordset:

If RsItem.State = adStateClosed Then
'Criamos as colunas do recordset
RsItem.Fields.Append "Posicao", adVarChar, 6
RsItem.Fields.Append "Disp", adVarChar, 10
RsItem.Open

RsItem.AddNew
RsItem!Posicao = TxtPos.text
RsItem!Disp = ComboDisp.text

Seria assim? FROM o quê? Se não existe tabela para esse recordset desconectado, a onde busco os dados?

Sql = "SELECT Posicao,Disp FROM ? WHERE Numero Like '%" & NrLtd & "%'"
Set RsItem = Bd.Execute(Sql)
RODRIGOMARCHESE 24/05/2007 14:14:53
#218105 Resposta escolhida

if RsItem.RecordCount > 1 Then
RsItem.Filter = "Posicao='" & txtpos.text & "'"
Call Preenche_Controles
end if
IRENKO 24/05/2007 14:57:16
#218116
Achei um exemplo no Macoratti mas não estou sabendo buscar as referencias:

SelectedItem

e

Private Sub ListAgenda_ItemClick(ByVal Item As MSComctlLib.ListItem)
rsagenda.Filter = "Nome='" & ListAgenda.SelectedItem.Text & "'"
Preenche_Controles
End Sub


a procedure acima da erro: não definida.
IRENKO 24/05/2007 15:05:52
#218120
http://www.macoratti.net/ado_sbd.htm
IRENKO 24/05/2007 15:22:41
#218126
Seguinte: o que quero fazer é primeiro gravar no recordset desconectado, depois vou transferir para o banco. tentei dessa forma:

>Aqui eu crio o recordset:

If RsItem.State = adStateClosed Then
'Criamos as colunas do recordset
RsItem.Fields.Append "Posicao", adVarChar, 6
RsItem.Fields.Append "Disp", adVarChar, 10
RsItem.Open

RsItem.AddNew
RsItem!Posicao = TxtPos.text
RsItem!Disp = ComboDisp.text

>Aqui passo para o banco:

Movimento.AddNew
Movimento!Posicao = Nnull(RsItem!Posicao)
Movimento!Disp = Nnull(RsItem!Disp)

O problema é que quando faço a primeira gravação no recordset desconectado de documento, esse documento pode ter varios items e para eu gravar todos os items tenho que baser no numero do documento, normalmente faço isso em um select:

Sql = "SELECT Posicao,Disp FROM ? WHERE Numero Like '%" & NrLtd & "%'"

Como seria para um recordset desconectado?
LIONHEART 24/05/2007 16:44:32
#218149
Com recordset desconectado vc usa shape, não "SELECT"

Look here:

 Dim sShapeString As String
    Dim rRecordset As New ADODB.Recordset

    rRecordset.CursorLocation = 2
    rRecordset.LockType = 4
    rRecordset.CursorType = 0
    
    rRecordset.ActiveConnection = "provider=msdatashape;data provider=none"
    
    sShapeString = "SHAPE APPEND"
    sShapeString = sShapeString & " NEW adVarChar(13)    AS CODBARRA,"
    sShapeString = sShapeString & " NEW adNumeric(10,2)  AS PRECOVENDA,"
    sShapeString = sShapeString & " NEW adNumeric(10,2)  AS VALORSUBSIDIOMF,"
    sShapeString = sShapeString & " NEW adNumeric(10,2)  AS VALORPAGOPACIENTE,"
    sShapeString = sShapeString & " NEW adVarChar(20)  AS AUTORIZACAO,"
    sShapeString = sShapeString & " NEW adNumeric(10,0)  AS NUMCUPOM,"
    sShapeString = sShapeString & " NEW adNumeric(3,0)  AS QTDEAUTORIZADA, "
    sShapeString = sShapeString & " NEW adVarChar(50)  AS MENSAGEM, "
    sShapeString = sShapeString & " NEW adNumeric(1,0)  AS STATUS, "
    sShapeString = sShapeString & " NEW adVarChar(14)  AS CNPJ, "
    sShapeString = sShapeString & " NEW adNumeric(3,0) AS QTDEMBALAGEM, "
    sShapeString = sShapeString & " NEW adNumeric(6,0) AS CODSOLICITACAO, "
    sShapeString = sShapeString & " NEW adNumeric(14,0) AS CPF, "
    sShapeString = sShapeString & " NEW adVarChar(50)  AS PACIENTE "
        
    rRecordset.Open sShapeString


Isso vai criar uma "TABELA" com essas colunas aí.
IRENKO 24/05/2007 16:58:32
#218153
OK Thiago se eu entendi bem vc criou uma tabela, mas qual o nome e como fazer uma pesquiza na mesma? Desculpe-me mas é a primeira vez que entro nessa de recordset desconectado.
Tópico encerrado , respostas não são mais permitidas
Voltar