Problemas com o códig para acessar obanco de Dados


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Problemas com o códig para acessar obanco de Dados

CeNzAo

BARUERI
SP - BRASIL

Postada em 09/06/2005 12:24 hs

Caros Amigos.

Se possivem gostaria de ajuda pq quando eu peço para abrir um form no meu programa está dando um erro tipo: "TYPE MISMATCH" nesta linha de comando...

Set abre_cadastro = cadastro.OpenRecordset("entrada", dbOpenTable)

Mas deem uma olhada eu coloquei tudo que era possivel e naum consegui arrumar...

Alguem pode me ajudar, abaixo posto o Form_Load para referencia.

Private cadastro As Database
Private abre_cadastro As Recordset

Private Sub Form_Load()

Dim banco As String
banco = "cadastro.mdb"

Set cadastro = OpenDatabase(App.Path + banco, dbOpenTable)
Set abre_cadastro = cadastro.OpenRecordset("entrada", dbOpenTable)

End Sub

Agradeço a todos

Samuel de Vincenzo

TÓPICO EDITADO

Chico VB

LAMBARI
MG - BRASIL

Postada em 09/06/2005 15:52 hs

Companheiro, testei o seu código, e o que vc tem a fazer é especificar qual o caminho na variável tipo String. E:

Dim banco As String
banco = "C:cadastro.mdb"
Set cadastro = OpenDatabase(banco, dbOpenTable)

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

Postada em 09/06/2005 16:33 hs

Já pensou em usar ADO???

é mais rapido, mais facil e mais seguro...

Private Cadastro as ADODB.Connection
Private AbreCadastro as ADODB.Recordset

Private Sub Form_Load()
  Set Cadastro = new ADODB.Connection
  Cadastro.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "anco.mdb" & ";UID=Admin;PWD=;"

  Set AbreCadastro = New ADODB.Recordset
  Set AbreCadastro.ActiveConnection = Cadastro
  AbreCadastro.Open "entrada", , adOpenKeySet, adLockOptimistic, adCmdTable

End Sub

Vc deve incluir referencia para "Microsoft ActiveX Data Objects"...

Espero q isso te ajude...

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

CeNzAo

BARUERI
SP - BRASIL

ENUNCIADA !

Postada em 09/06/2005 16:48 hs

Caro Colega eu coloquei com o ADODB e está dizendo seguinte:

[Microsoft][Driver ODBC para Microsoft Access]Não foi possivel encontrar o arquivo 'desconhecido'

você pode me ajudar, novamente????

TÓPICO EDITADO

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR