Meu código

19/01/2005

0

Meu código para dúvida acima está assim:
Private Sub cmdAdicionar_Click()
Dim wkCenario As DAO.Workspace
Dim db As DAO.Database
Dim PrimaryRS As ADODB.Recordset
Dim sql As String
Dim kDIRDados As String

Set wkCenario = DBEngine.Workspaces(0)
Set db = wkCenario.OpenDatabase(´\teste_spt´) aqui está a duvida!!!!!!

PrimaryRS.Open ´teste_spt´, db, adOpenDynamic, adLockOptimistic

sql = ´´
sql = sql & ´select * from teste_sql´ & vbCr

Set PrimaryRS = db.OpenRecordset(sql, adOpenDynamic, 2)

PrimaryRS.AddNew

PrimaryRS.Fields(´codigo´) = 1
PrimaryRS.Fields(´nome´) = ´eckart´
PrimaryRS.Update
PrimaryRS.Close

Exit Sub
End Sub


Vanessa Muniz

Vanessa Muniz

Responder

Posts

19/01/2005

Gandalf.nho

[b:8f96f9069f][color=red:8f96f9069f]Notificação de Infração às Regras de Conduta :[/color:8f96f9069f][/b:8f96f9069f]

Título não descritivo do problema

Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].


Responder

19/01/2005

Vanessa Muniz

Meu código para dúvida acima está assim:
Private Sub cmdAdicionar_Click()
Dim wkCenario As DAO.Workspace
Dim db As DAO.Database
Dim PrimaryRS As ADODB.Recordset
Dim sql As String
Dim kDIRDados As String

Set wkCenario = DBEngine.Workspaces(0)
Set db = wkCenario.OpenDatabase(´\teste_spt´) [size=24:c05ebcee08][color=darkred:c05ebcee08]aqui está a duvida[/size:c05ebcee08]!!!!!! [/color:c05ebcee08]
PrimaryRS.Open ´teste_spt´, db, adOpenDynamic, adLockOptimistic

sql = ´´
sql = sql & ´select * from teste_sql´ & vbCr

Set PrimaryRS = db.OpenRecordset(sql, adOpenDynamic, 2)

PrimaryRS.AddNew

PrimaryRS.Fields(´codigo´) = 1
PrimaryRS.Fields(´nome´) = ´eckart´
PrimaryRS.Update
PrimaryRS.Close

Exit Sub
End Sub


Responder

19/01/2005

Aroldo Zanela

Colega,

Acredito que se você postar sua dúvida num fórum de [url=www.iMasters.com.br/forum]Visual Basic[/url], você terá maior change de obter uma resposta válida.


Responder

20/01/2005

Bon Jovi

Deixe DAO de lado. Faça tudo via ADO.

Nao manjo de VB, mas só pra vc ter uma idéia:

[size=9:ed2ac32d15]Dim Conexao As New ADODB.Connection
Conexao.ConnectionString = ´Provider=sqloledb;Data Source=SERVIDOR;Initial Catalog=BASE;User Id=USUARIO;Password=SENHA;´
Conexao.Open[/size:ed2ac32d15]


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar