FIRIBERD 2.0 X VB6

FABAO 02/01/2010 22:48:20
#330912
ok. coloque como está...

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String

cn.ConnectionString = [Ô]Provider=ZStyle IBOLE Provider;Data Source=c:\seu_banco_de_dados.gdb;UID=sysdba;password=masterkey[Ô]
MASTER2020 02/01/2010 23:00:58
#330914
eu fiz este codigo Fabao baseado mas esta dando um erro

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Private Sub Form_Load()


cn.ConnectionString = [Ô]Provider=ZStyle IBOLE Provider;Data Source=c:    este\EMPLOYEE.GDB;UID=sysdba;password=masterkey[Ô]



cn.Open
sql = [Ô]Select * From Employees[Ô]


rs.Fields([Ô]LASTNAME[Ô]).Value = Text1.Text

End Sub


LASTNAME eo nome de um campo da bd
MASTER2020 02/01/2010 23:04:17
#330915
veja a tela
FABAO 02/01/2010 23:05:27
#330916
está faltando o

Set rs = cn.Execute(sql)


tente assim:


Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Private Sub Form_Load()


cn.ConnectionString = [Ô]Provider=ZStyle IBOLE Provider;Data Source=c:    este\EMPLOYEE.GDB;UID=sysdba;password=masterkey[Ô]



cn.Open
sql = [Ô]Select * From Employees[Ô]

Set rs = cn.Execute(sql)

rs.Fields([Ô]LASTNAME[Ô]).Value = Text1.Text
MASTER2020 02/01/2010 23:17:04
#330918
Fabao eu fiz nao deu erro mas na text1.nao mostrou nada
FABAO 02/01/2010 23:19:32
#330920
Text1.Text = rs.Fields([Ô]LASTNAME[Ô]).Value


tente assim
MASTER2020 02/01/2010 23:24:58
#330921
bom meu amigo funcionou muito bem, mas o resto e igual ado
rs.addnew ..... e assim segue ou tem diferenças
FABAO 02/01/2010 23:27:57
#330922
na verdade com firebird tem algumas diferenças sim


addnew por exemplo tem que ser com insert into, tem que usar sempre comandos SQL
MASTER2020 02/01/2010 23:33:41
#330925
Ok Fabao, muito obrigado vou encerrar vlw
Página 2 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar