Search results for query: *

Thanks for the reply. I found the answer. The Delphi query and stored procedure ADO component CommandTimeout attributes DO NOT WORK. No matter what you set them for you will get a 30 second timeout. To avoid this you must use the Command Component. The CommandTimeout on this component...

I have an application in Delhpi 5 which runs several stored procedures. It connect via ADOConnection and ADOStoredProc. I have set the CommandTimeout on the connection to 0 for no timeout. Times out at 30 seconds. I have set the CommandTimeout on the connection to 3600 for one hour time out...

Does anyone know of any good articals or have any good advice on the virtues of ADO and/or dbExpress? We are migrating away from bde and I am getting all the info I can about both before we make a decision on which way to go.

Mmmm. Sorry, I have had a couple of very busy days. I need to know exactly where the overflow is happening. What would be better is if you email me a db with some test data and an explaination of what it is you are trying to do and what the error is. What line gives the overflow error...

Change this line: strSQL = &quot;SELECT * FROM Table2 WHERE CareDate >= #&quot; & MyDate1 & &quot;# AND CareDate <= #&quot; & MyDate2 & &quot;#&quot; to be strSQL = &quot;SELECT * FROM Table2 WHERE CareDate >= #&quot; & MyDate1 & &quot;# AND CareDate <= #&quot; & MyDate2 & &quot;# AND...

Take the default out of the table fields and place it in the before update event of the form.

Read this thread: thread181-433991

Click tools/startup. In there you can define which form opens at startup. just place some code in the open event for this form.

With a report you would just make the recordset property: Select * From MyTable

Here is a routine that will generate the number you want and update a table. In my case Table2. You will need to edit this to use your tables. Public Function UpdateDate(ByVal MyNumber As Integer, ByVal MyDate As Date) As Boolean Dim rs, rs2 As DAO.Recordset Dim strSQL As String...

What you are asking for is not a simple thing. You are asking that when a record is added to the table that you use the month and year as part of the key and find the highest day of the month and add 1. This of course is for a single unique carenumber. Based on this request you are...

Here is what I suggest you do. Change this routine: to be: Function CreateLinkedTables(tblExternalFile As String, tblInternalFile as string, strDataBase As String) Dim strConn As String Dim tbl As TableDef Dim db As Database On Error GoTo CreateLinkedTables_Err ConnectOutput CurrentDb(), _...

Maybe you should rewrite your routine like this: If Isdate(Me.txtDOB) then If CDate(Me.txtDOB) > Date Then MsgBox &quot;Please re-enter Date of Birth&quot;, vbExclamation ValidateFormData = False GoTo Exit_ValidateFormData End If Else MsgBox(&quot;Invalid Date&quot;)...

re-write it like this: If CDate(Me.txtDOB) > Date Then MsgBox &quot;Please re-enter Date of Birth&quot;, vbExclamation ValidateFormData = False GoTo Exit_ValidateFormData End If

I am not sure what you are asking for.

Change the click event to store the location of the remote database. add a string variable: Dim strLocation as String Then add this line: strLocation = ahtCommonFileOpenSave(InitialDir:=&quot;C:\&quot;, _ filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _ DialogTitle:=&quot;Hello! Open...

ok, &quot;TheRightFile&quot; is actually a table name in the remote database. You will have to enter the name of one of the tables from you acc97 db in that spot. dummy = CreateLinkedTables(&quot;Your remote table name&quot;, ahtCommonFileOpenSave(InitialDir:=&quot;C:\&quot;, _...

Hmmmm, without seeing exactly how you are doing this I am having a tough time visuallizing your situation. If you are creating a query to read tables and you are not sure which table until selections have been made then here is what I would do. You can have as many columns as you like in a...

Here is what you do. 1) make sure your dao reference is set. 2) add this routine to your modules: Sub ConnectOutput(dbsTemp As Database, _ strTable As String, strConnect As String, _ strSourceTable As String) Dim tdfLinked As DAO.TableDef Dim rstLinked As DAO.Recordset...

The stuff you want to do is quite complex and I really cannot help you with that without a lot of time. Here is what I can do. I can show you how to use a case statement with a combo box I set up a test form and on that for I placed a combobox called cboTest. I placed a buttom called...