Array
(
)

Meu código

Vanessa Muniz
   - 19 jan 2005

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

Gandalf.nho
   - 19 jan 2005

Notificação de Infração às Regras de Conduta :

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].

Vanessa Muniz
   - 19 jan 2005

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]aqui está a duvida[/size: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

Aroldo Zanela
   - 19 jan 2005

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.

Bon Jovi
   - 20 jan 2005

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]