Meu código
19/01/2005
0
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
Posts
19/01/2005
Gandalf.nho
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].
19/01/2005
Vanessa Muniz
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
19/01/2005
Aroldo Zanela
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.
20/01/2005
Bon Jovi
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]
Clique aqui para fazer login e interagir na Comunidade :)