There is no error in the code, but the error is thrown due to the following: – Please check whether you have given Read-write permission to MS-Access database file. – The Database file where it is stored (say in Folder1) is read-only..? suppose you are stored the database (MS-Access file) in read only folder, while … Read more
You can easily write a bit code that will read in a file. You can either assume one sql statement per line, or assume the ; So, assuming you have a text file such as: insert into tblTest (t1) values (‘2000’); update tbltest set t1 = ‘2222’ where id = 5; insert into tblTest (t1,t2,t3) … Read more
To build on Ilya’s answer try the following query: SELECT MSysObjects.Name AS table_name FROM MSysObjects WHERE (((Left([Name],1))<>”~”) AND ((Left([Name],4))<>”MSys”) AND ((MSysObjects.Type) In (1,4,6))) order by MSysObjects.Name (this one works without modification with an MDB) ACCDB users may need to do something like this SELECT MSysObjects.Name AS table_name FROM MSysObjects WHERE (((Left([Name],1))<>”~”) AND ((Left([Name],4))<>”MSys”) AND ((MSysObjects.Type) … Read more
There’s nothing to get the current function name, but you can build a fairly lightweight tracing system using the fact that VBA object lifetimes are deterministic. For example, you can have a class called ‘Tracer’ with this code: Private proc_ As String Public Sub init(proc As String) proc_ = proc End Sub Private Sub Class_Terminate() … Read more
VB 6 provides a Clipboard object that makes all of this extremely simple and convenient, but unfortunately that’s not available from VBA. If it were me, I’d go the API route. There’s no reason to be scared of calling native APIs; the language provides you with the ability to do that for a reason. However, … Read more
There is perfect logic to the Parentheses Rule in VB(A), and it goes like this. If a procedure (function or sub) is called with arguments, and the call is on a line with other statements or keywords, the arguments must be enclosed in parentheses. This to distinguish the arguments belonging to the procedure call from … Read more
To Decompile an Access database you’ll need to create a shortcut with the following elements: Path to the MS Access Executable (MSACESS.exe) Path to the database you would like to decompile The /decompile flag All together, then, the shortcut would look something like the following: “C:\Program Files\Microsoft Office\Office\MSACCESS.EXE” “C:\users\tim\documents\Mydatabase.mdb” /decompile Obviously, the paths will be … Read more
In your example, because you use CurrentDB to execute your INSERT you’ve made it harder for yourself. Instead, this will work: Dim query As String Dim newRow As Long ‘ note change of data type Dim db As DAO.Database query = “INSERT INTO InvoiceNumbers (date) VALUES (” & NOW() & “);” Set db = CurrentDB … Read more
Place single quotes around the Extended Properties: OleDbConnection oconn = new OleDbConnection( @”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” + path + “;Extended Properties=”Excel 8.0;HDR=YES;IMEX=1;”;”); Try it, it really works.
You can do something simple like: Left(path, InStrRev(path, “\”)) Example: Function GetDirectory(path) GetDirectory = Left(path, InStrRev(path, Application.PathSeparator)) End Function