mb01a 18 Light Poster

@brentbret29 -

Advertising? Hmmmm ..

mb01a 18 Light Poster

Let me think about that ..

How about -

dim sql as string
sql = "select tablename.* from tablename limit 5" 
' other things you'll need are defined elsewhere in your program

Now, you'll need to add the code that connects to mysql, then open the recordset and show the results to the user. There are About 2,070,000 results returned(0.12 seconds) for this question in Google.

:) it's been a really slow day ..

mb01a 18 Light Poster

Sometimes the simple way works best ..

You can also use 'rmdir' (rd) to delete a file or folder, and 'chdir' (cd) to change the current directory. Yes, these are DOS commands (dos is old! OMG!) but they are still supported in all versions of windows and Visual Basic. These same commands are built in to Linux and other operating systems and work very well.


look here for more - http://en.wikipedia.org/wiki/List_of_DOS_commands


You should mark this thread as "Solved" and pass me the credit. Thanks.

mb01a 18 Light Poster

I always use this when in VB .. it's not as complicated, and if your permissions are ok it works every time..

If Dir("c:\newfolder") = "" Then MkDir ("c:\newfolder")
mb01a 18 Light Poster

windows explorer 'stalls' because of it's timeout duration. Windows Explorer is at the mercy of the devices it's trying to list. If any of those devices experience a delay in returning the information that Windows Explorer is asking for, you'll notice a delay.

Disconnecting network drives and perhaps unplugging other devices could at least give you a clue as to which device is contributing to the delay.

So .. no matter whos' File Manager is used, if it asks for information from a device that takes it's time answering (or doesn't answer at all) there will be a delay.

Another reason for a slow file manager might be that your PC has so much junk and spyware on it that explorer chokes. Do a cleanup.

Now, write a file manager with a timeout configuration value that's user adjustable.

:)

mb01a 18 Light Poster

Enumerate field names in a recordset

Function getfieldnames(mytable As String)

Dim fld As Field
Dim dbf As Database
Dim rs As Recordset
Dim sql As String

Set dbf = CurrentDb()
Set rs = dbf.OpenRecordset(mytable, dbOpenDynaset, dbSeeChanges)
sql = ""


For Each fld In rs.Fields
sql = sql & fld.Name & ","
Next
getfieldnames = Left(sql, Len(sql) - 1)
dbf.Close
rs.Close


End Function

mb01a 18 Light Poster

Can you copy/paste it into notepad then do a save or saveas?

mb01a 18 Light Poster

I use live chat on my site, mostly for customers who need installation help. Everyone likes it ..
:)