anoniem Geplaatst: 4 februari 2005 Delen Geplaatst: 4 februari 2005 Hai, Volgens mij kijk ik ergens gigantisch overheen, maar ik loop klem op een sql request aan een acces-database, waarin ik meerdere voorwaarden wil stellen. Wiens heldere blik helpt mij uit de brand? Om het even overzichtelijk te houden, de volledig connectie in een sub, en de string in een variabele: [code:1:9adb9d01cb] Private Sub opdracht_click() With db On Error Resume Next .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False" sql = "Select * From opdrachten WHERE opdracht='" & opdracht.text & "' AND klantnaam='" & out_naam.Caption & "'" .RecordSource = sql .Refresh If Not .Recordset.EOF Then .Recordset.MoveFirst ..... verwerking uitkomst..... .Recordset.Close End With End Sub[/code:1:9adb9d01cb] Ik wil dus uit mn database de records hebben waarop het veld opdracht overeenkomt met de waarde uit opdracht.text, en de klantnaam overeenkomt met de waarde in out_naam.caption. De string wordt bijvoorbeeld als volgt aangemaakt: [code:1:9adb9d01cb] Select * From opdrachten WHERE opdracht='IB00001' AND klantnaam='BAS Groep BV' [/code:1:9adb9d01cb] De waarschuwing die ik bij uitvoering krijg is: 'Waarden voor een of meer vereiste parameters ontbreken'. Quote Link naar reactie
anoniem Geplaatst: 4 februari 2005 Auteur Delen Geplaatst: 4 februari 2005 Weet je zeker dat je de veldnamen in de where-clause hetzelfde gespeld zijn als in je tabel? Quote Link naar reactie
anoniem Geplaatst: 4 februari 2005 Auteur Delen Geplaatst: 4 februari 2005 Ja, want onafhankelijk van elkaar functioneren ze wel... Nou kan ik er weer een 'if''je tussen hangen.... maar ik heb natuurlijk liever dat ik gewoon de juiste info van de database krijg. Quote Link naar reactie
anoniem Geplaatst: 5 februari 2005 Auteur Delen Geplaatst: 5 februari 2005 [quote:d8bbb1e9fe="Janssen"]Hai, [code:1:d8bbb1e9fe] On Error Resume Next [/code:1:d8bbb1e9fe] De waarschuwing die ik bij uitvoering krijg is: 'Waarden voor een of meer vereiste parameters ontbreken'.[/quote:d8bbb1e9fe] Niet erg betrouwbaar op deze manier. Bij welke regel wordt de foutmelding gegeven? Quote Link naar reactie
anoniem Geplaatst: 8 februari 2005 Auteur Delen Geplaatst: 8 februari 2005 Je hebt gelijk, zo krijg je natuurlijk niet echt een handige foutmelding, dus even eruit gehaald. Foutmelding: Run-time error `- 2147217904(80040e10)': Method 'Refresh' of object 'IAdodc' failed Op de '.refresh'. Kun je hier wat mee? Quote Link naar reactie
anoniem Geplaatst: 8 februari 2005 Auteur Delen Geplaatst: 8 februari 2005 Ik ben niet zo zeer thuis in dao, maar vlgs mij kan je refresh niet gebruiken om een nieuwe query uit te voeren. refresh wordt gebruikt om de data van een ingeladen dataset te refreshen met de onderliggende acces table. volgens mij moet je iets gebruiken van .requery op de dataset te vullen met de nieuwe sql query Jan Willem Vb Public Sub ExecuteX() Dim strSQLChange As String Dim strSQLRestore As String Dim strCnn As String Dim cnn1 As ADODB.Connection Dim cmdChange As ADODB.Command Dim rstTitles As ADODB.Recordset Dim errLoop As ADODB.Error ' Define two SQL statements to execute as command text. strSQLChange = "UPDATE Titles SET Type = " & _ "'self_help' WHERE Type = 'psychology'" strSQLRestore = "UPDATE Titles SET Type = " & _ "'psychology' WHERE Type = 'self_help'" ' Open connection. strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; " Set cnn1 = New ADODB.Connection cnn1.Open strCnn ' Create command object. Set cmdChange = New ADODB.Command Set cmdChange.ActiveConnection = cnn1 cmdChange.CommandText = strSQLChange ' Open titles table. Set rstTitles = New ADODB.Recordset rstTitles.Open "titles", cnn1, , , adCmdTable ' Print report of original data. Debug.Print _ "Data in Titles table before executing the query" PrintOutput rstTitles ' Clear extraneous errors from the Errors collection. cnn1.Errors.Clear ' Call the ExecuteCommand subroutine to execute cmdChange command. ExecuteCommand cmdChange, rstTitles ' Print report of new data. Debug.Print _ "Data in Titles table after executing the query" PrintOutput rstTitles ' Use the Connection object's execute method to ' execute SQL statement to restore data. Trap for ' errors, checking the Errors collection if necessary. On Error GoTo Err_Execute cnn1.Execute strSQLRestore, , adExecuteNoRecords On Error GoTo 0 ' Retrieve the current data by requerying the recordset. rstTitles.Requery ' Print report of restored data. Debug.Print "Data after executing the query " & _ "to restore the original information" PrintOutput rstTitles rstTitles.Close cnn1.Close Exit Sub Err_Execute: ' Notify user of any errors that result from ' executing the query. If Errors.Count > 0 Then For Each errLoop In Errors MsgBox "Error number: " & errLoop.Number & vbCr & _ errLoop.Description Next errLoop End If Resume Next End Sub Public Sub ExecuteCommand(cmdTemp As ADODB.Command, _ rstTemp As ADODB.Recordset) Dim errLoop As Error ' Run the specified Command object. Trap for ' errors, checking the Errors collection if necessary. On Error GoTo Err_Execute cmdTemp.Execute On Error GoTo 0 ' Retrieve the current data by requerying the recordset. rstTemp.Requery Exit Sub Err_Execute: ' Notify user of any errors that result from ' executing the query. If Errors.Count > 0 Then For Each errLoop In Errors MsgBox "Error number: " & errLoop.Number & vbCr & _ errLoop.Description Next errLoop End If Resume Next End Sub Public Sub PrintOutput(rstTemp As ADODB.Recordset) ' Enumerate Recordset. Do While Not rstTemp.EOF Debug.Print " " & rstTemp!Title & _ ", " & rstTemp!Type rstTemp.MoveNext Loop End Sub Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen