FIREBIRD 2.5 VB6

CHARLESTON10 02/02/2011 16:15:19
#364146

UM EXEMPLO


Private Sub Command1_Click()

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:    este\Employee.gdb;UID=sysdba;password=masterkey[Ô]

sql = [Ô]Select * From Employees[Ô]
cn.Open
Set rs = cn.Execute(sql)

Do While Not rs.EOF
  List1.AddItem rs(0) & vbTab & rs(1) & vbTab & rs(2)
  rs.MoveNext
Loop

rs.Close
cn.Close

End Sub
LLAIA 04/02/2011 03:12:31
#364316
Olhando seu banco, as tabelas foram listadas em minúsculo. Isso não é o padrão, sinal que vc ou alguém colocou o nome da tabela entre aspas duplas pra forçar as letras minúsculas.

Isso se resolve assim:

select * from [Ô]perfiluser[Ô]


Viu? O nome da tabema tem que está minúsculo e entre aspas.
Página 5 de 5 [42 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar