[VB]Problema connessione db

[Astharot]

Mi da questo errore quando eseguo la sub
runtime '-2147467259(80004005)'


Il codice è il seguente

Sub EseguiQuery()

Dim sSql As String
Dim sWhere As String
Dim db As String

Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Dim RSt As ADODB.Recordset


db = "E:\Database18.mdb"

MI DA ERRORE SULLA OPEN
Conn.Open db

sSql = "SELECT Clienti.Cod_Cliente, Clienti.Cognome, Clienti.Nome, Clienti.Città, Clienti.[Indirizzo 1], Clienti.[Indirizzo 2], Clienti.CAP, Clienti.[Telefono 1], Clienti.[Telefono 2], Clienti.Cellulare, Clienti.FAX, Clienti.Email, Clienti.[Data di Nascita], Clienti.Nazionalità, [Categoria Professionale].[Tipo categoria], [Categoria Classe].[Categoria Classe]FROM [Categoria Professionale] INNER JOIN ([Categoria Classe] INNER JOIN Clienti ON [Categoria Classe].Cod_classe = Clienti.Cod_Classe) ON [Categoria Professionale].cod_Categoria = Clienti.Cod_Categoria"

sWhere = ""

If txtCognome.txt <> "" Then
sWhere = sWhere & " Clienti.Cognome LIKE '" & Replace(txtCognome.txt, "'", "''") & "'"
End If

If txtNome.txt <> "" Then
If sWhere <> "" Then sWhere = sWhere & " AND "
sWhere = sWhere & " Clienti.Nome LIKE '" & Replace(txtNome.txt, "'", "''") & "'"
End If

If sWhere <> "" Then
sSql = sSql & " WHERE " & sWhere
End If

Set RSt = Conn.Execute(sSql)

End Sub

Come lo risolvo?
Grazie

[oregon]

Quando fai la Open della connessione (oggetto Conn) non basta il nome del database.

E' necessaria una "stringa di connessione" in cui devono essere indicate alcune informazioni ... vedi sull'help o su un qualsiasi testo di riferimento ... (oltre che a fare qualche ricerca su questo stesso forum).

P.S. Devi sempre indicare la versione del VB ...

[Zlatan8.]

Se è vb6 devi fare una cosa del genere:

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\nomedatabase.mdb"

cn.Open

[Astharot]

VB che utilizzo è quello che c'è in Access nel pacchetto Office XP
non funziona quello che mi hai scritto -.-
cerco nell'help e nel forum intanto

[Astharot]

Mi dice che gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto
devo modificare la stringa sull'open????


Sub EseguiQuery()

Dim sSql As String
Dim sWhere As String

Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Dim RSt As ADODB.Recordset


Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Database18.mdb; User ID=admin;Password="";"

sSql = "SELECT Clienti.Cod_Cliente, Clienti.Cognome, Clienti.Nome, Clienti.Città, Clienti.[Indirizzo 1], Clienti.[Indirizzo 2], Clienti.CAP, Clienti.[Telefono 1], Clienti.[Telefono 2], Clienti.Cellulare, Clienti.FAX, Clienti.Email, Clienti.[Data di Nascita], Clienti.Nazionalità, [Categoria Professionale].[Tipo categoria], [Categoria Classe].[Categoria Classe]FROM [Categoria Professionale] INNER JOIN ([Categoria Classe] INNER JOIN Clienti ON [Categoria Classe].Cod_classe = Clienti.Cod_Classe) ON [Categoria Professionale].cod_Categoria = Clienti.Cod_Categoria"

sWhere = ""

If Cognome <> "" Then
sWhere = sWhere & " Clienti.Cognome LIKE '" & Replace(Cognome, "'", "''") & "'"
End If

If Nome <> "" Then
If sWhere <> "" Then sWhere = sWhere & " AND "
sWhere = sWhere & " Clienti.Nome LIKE '" & Replace(Nome, "'", "''") & "'"
End If

If sWhere <> "" Then
sSql = sSql & " WHERE " & sWhere
End If

Set RSt = Conn.Execute(sSql)

End Sub

[Zlatan8.]

Diamine, ma se scrivi il codice in modo diverso da quello che ti ho postato come pretendi che vada?

[Zlatan8.]

Option explicit
private cn as adodb.connection
privare rs as adodb.recordset


Sub EseguiQuery()

Dim sSql As String
Dim sWhere As String


set cn=new adodb.connection
cn.connectionstring ="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\nomedatabase.mdb"


Conn.Open

sSql = "SELECT Clienti.Cod_Cliente, Clienti.Cognome, Clienti.Nome, Clienti.Città, Clienti.[Indirizzo 1], Clienti.[Indirizzo 2], Clienti.CAP, Clienti.[Telefono 1], Clienti.[Telefono 2], Clienti.Cellulare, Clienti.FAX, Clienti.Email, Clienti.[Data di Nascita], Clienti.Nazionalità, [Categoria Professionale].[Tipo categoria], [Categoria Classe].[Categoria Classe]FROM [Categoria Professionale] INNER JOIN ([Categoria Classe] INNER JOIN Clienti ON [Categoria Classe].Cod_classe = Clienti.Cod_Classe) ON [Categoria Professionale].cod_Categoria = Clienti.Cod_Categoria"

sWhere = ""

If Cognome <> "" Then
sWhere = sWhere & " Clienti.Cognome LIKE '" & Replace(Cognome, "'", "''") & "'"
End If

If Nome <> "" Then
If sWhere <> "" Then sWhere = sWhere & " AND "
sWhere = sWhere & " Clienti.Nome LIKE '" & Replace(Nome, "'", "''") & "'"
End If

If sWhere <> "" Then
sSql = sSql & " WHERE " & sWhere
End If

Set RSt = Conn.Execute(sSql)

End Sub

[Astharot]

mi dava errore sul codice che mi avevi scritto nel primo post......
ora mi errore di variabile non definita qui
cn.connectionstring ="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\nomedatabase.mdb"

non sapendo programmare in VB chiedo..........

[Zlatan8.]

Ovviamente il database che hai, scrivendo quel codice, deve essere dentro la cartella dove hai salvato il file...

[Boolean]

Zlatan, Astharot ha detto che sta programmando con il VBA di Access, per cui è inutile insistere nello specificare App.Path per reperire il percorso relativo all'applicazione, in quanto l'oggetto App e la relativa proprietà Path, non esistono in Access, da qui l'errore lamentato.

Per ottenere il percorso del Database Access è possibile utilizzare l'oggetto CurrentProject, che mette a disposizione la proprietà Path:

... "Data Source=" & CurrentProject.Path & "\nomedatabase.mdb"

Boolean