vb.net problema con istruzione sql | Stampa

nella mia applicazione sono collegato ad un database access e quindi a una tabella con i rispettivi campi: Cognome,Nome,Titolo, dataConsegna,DatraRestituzione.

io voglio eseguire un semplice select sulla tabella in questione dove il campo DataRestituzione risulta > di una data specifica (qualsiasi data es 28/05/2004) con questa istruzione sql non mi funziona sembra non tener conto del critertio [Data Restituzione]< #31/05/2004# "


istruzione sql
"SELECT ID, Cognome, Nome, Titolo, [Data Consegna], [Data Restituzione] FROM TabellaMovimenti WHERE [Data Restituzione]< #31/05/2004# "


cosa succede che se all'interno del mio database la data è uguale a 29/05/2004 o 30/05/2004 allora il record count della select mi ritorna 1 e quindi riconosce che c'è una data minore di 31/05/2004...nel momento in cui la data nel criterio della select cambia mese es la data di oggi 02/06/2004 e invece la data nel mio database rimane invariata quindi 30/05/2004 il recordcount mi ritorna 0 non vede più che c'è una data minore....sembra che faccia casino quando cambia il mese...come devo fare????

non so bene come si comporta Access con le problematiche relative alla gestione dei campi Data e Ora comunque prova a sostituire nell'istruzione SQL i simboli '#' con gli apici singoli, poi facci sapere.

grazie mille con gli apici funziona....cmq è strano che con i # funziona solo per lo stesso mese e per un mese diverso no...

grazie ancora

Quote:

---

Originally posted by maniac75
non so bene come si comporta Access con le problematiche relative alla gestione dei campi Data e Ora comunque prova a sostituire nell'istruzione SQL i simboli '#' con gli apici singoli, poi facci sapere.

---

grazie ancora...ne approfitto per chiederti due cose...

1 adesso quando rilascerò l'applicazione con il database vuoto come faccio a far riconoscere il percorso del DB...cioè adesso sul mio computer c'è l'ho sul desktop e quindi il percorso è questo: Public NomeDB As String = "C:\Documents and Settings\MARCO\Desktop\bibliox.mdb"

ma quando lo rilascero sotto file msi una volta che lo installo come faccio....non c'è come in vb6 che puoi mettergli il percorso di dove si trova il file .exe dell'applicazione o la cartela di dove si installerà il programma cosi lo modifico una volta e il DB lo piazzo dove c'è l'exe del programma...c'è una parola chiave per indicare il percorso di dove si trova l'exe


2 dove posso trovare l'ultimo servicepack per vb.net enterprise???io ho la versione 2002 e a volte negli ultimi tempi mi si blocca e devo terminare l'applicazione...

Dall'Installazione fai copiare il file MDB nella stessa cartella del Programma Eseguibile.

Alla partenza del Programma ricavi il nome del File Eseguibile completo di percorso tramite la funzione : strAPPPath=Application.ExecutablePath.

in strAPPPath Tramite le funzione di trattamento delle stringhe o qualche altra funzione apposita (non sono esperto di VB) separi il Percorso dal nome del File.

Utilizzi il Percorso nella stringa di connesione di ADO (Usi quello) per collegarti al DB.

ES.

strAPPPath=Application.ExecutablePath

{Assegnamento ad strAPPPath solamente del percorso}

Dim Cnn as new ADODB.Connection
Cnn.ConnectionString="Provider=Microsoft.JET.OLEDB.4.0; Data Source="+strAPPPath+"\MyDatabase.MDB; ... "
Cnn.Open;


>>dove posso trovare l'ultimo servicepack per vb.net enterprise

al sito Microsoft ovviamente.

Quote:

---

Originally posted by maniac75
Dall'Installazione fai copiare il file MDB nella stessa cartella del Programma Eseguibile.

Alla partenza del Programma ricavi il nome del File Eseguibile completo di percorso tramite la funzione : strAPPPath=Application.ExecutablePath.

in strAPPPath Tramite le funzione di trattamento delle stringhe o qualche altra funzione apposita (non sono esperto di VB) separi il Percorso dal nome del File.

Utilizzi il Percorso nella stringa di connesione di ADO (Usi quello) per collegarti al DB.

ES.

strAPPPath=Application.ExecutablePath

{Assegnamento ad strAPPPath solamente del percorso}

Dim Cnn as new ADODB.Connection
Cnn.ConnectionString="Provider=Microsoft.JET.OLEDB.4.0; Data Source="+strAPPPath+"\MyDatabase.MDB; ... "
Cnn.Open;


>>dove posso trovare l'ultimo servicepack per vb.net enterprise

al sito Microsoft ovviamente.

---

ho fatto come mi hai detto cioè così:

questa è la dichiarazione della stringa
Public NomeDB As String = "" & Application.ExecutablePath & "\bibliox.mdb"""

e questa è la funzione che mi si connette al DB ma mi dice che il percorso risulta errato


Public Function ConnettiDb(ByVal Cn As OleDb.OleDbConnection, Optional ByVal User As String = "", Optional ByVal Psw As String = "")
If Not IsNothing(Cn) Then
Try
Cn.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Database Password=;" & _
"Data Source=" & NomeDB & ";Password=" & Psw & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactions=1;Provider=""Microsoft.Jet.OLEDB.4.0"";" & _
"Jet OLEDB:System database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:New Database Password=;Jet OLEDB:Create System Database=False;" & _
"Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=" & User & ";Jet OLEDB:Encrypt Database=False"
Cn.Open()
Catch err As Exception
MsgBox(err.Message, MsgBoxStyle.Critical, "Errore...")
End Try
End If
End Function

non so perchè mi vengono fuori i sorrisini al posto della "d" cmq ho provato un po ed è una cosa stranissima perchè così mi funziona:

'Public NomeDB As String = "D:\VB.NET\Prove DOT.NET\biblioxnuovo\bin\bibliox.mdb"

questa è la path dell'exe presa e copiata

così invece non mi funziona

'Public NomeDB As String = "" & Application.ExecutablePath & "\bibliox.mdb"

il perche sta nella stringa...a me serve sapere il percorso della cartella dove si trova il file exe ma senza che questo appaia nella stringa...in questo caso Application.ExucutablePath vale:
"D:\VB.NET\Prove DOT.NET\biblioxnuovo\bin\biblioxnuovo.exe"

invece per funzionare non deve esserci biblioxnuovo.exe ma deve essere la stringa così:
"D:\VB.NET\Prove DOT.NET\biblioxnuovo\bin\bibliox.mdb"

come non detto...Trovato

Quello giusto è Application.StartupPath

speriamo valga anche quando rilascerò l'applicazione.

dove posso trovare l'ultimo servicepack per vb.net enterprise


scusami ma sono andato sul sito della microsoft ma non riesco a trovarlo...ho cercato nella sezione download visual studio ma niente e poi cambia se è in inglese perchè io visual studio enterprise c'è l'ho in italiano...se tu l'hai già scaricato mi potresti postare il link direttamente...grazie