Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How working with Access Databases through Excel 2003 Standar Editi
Hello
I have troubles when work with databases through VBA Codes in Excel 2003 Standar Edition. How or what is the way to do? Also, the instruction chr(13) not is acceptable in VBA Codes of Excel 2000 or 2003 Standar Edition. My example: Dim cnn As New ADODB.Connection Set cnn = New Connection dbName = ("C:\Data\MYDataBase1.mdb") With cnn .Provider = "Microsoft.Jet.OLEDB.4.0" .Mode = adModeWrite .Properties("Jet OLEDB:Database Password") = "abc" .Open dbName End With 'Create the recordset Dim rs As ADODB.Recordset Set rs = New Recordset 'Determines what records to show Dim strSQL As String strSQL = "DROP TABLE MYTABLE;" 'Retreive the records rs.CursorLocation = adUseClient rs.Open strSQL, cnn 'close connection cnn.Close Set cnn = Nothing Set rs = Nothing |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How working with Access Databases through Excel 2003 Standar Editi
1.) Show us what you're doing and tell us what happens when you try.
2.) Give this a go. Dim cnn As ADODB.Connection Dim strSQL As String Set cnn = New ADODB.Connection cnn .Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source='C:\Data\MYDataBase1.mdb'" strSQL = "DROP TABLE MYTABLE;" cnn.Execute strSQL cnn.Close Set cnn= Nothing -- Regards, Dave Patrick ....Please no email replies - reply in newsgroup. Microsoft Certified Professional Microsoft MVP [Windows] http://www.microsoft.com/protect "Dennis" wrote: | Hello | | I have troubles when work with databases through VBA Codes in Excel 2003 | Standar Edition. How or what is the way to do? | | Also, the instruction chr(13) not is acceptable in VBA Codes of Excel 2000 | or 2003 Standar Edition. | | My example: | | | Dim cnn As New ADODB.Connection | Set cnn = New Connection | dbName = ("C:\Data\MYDataBase1.mdb") | With cnn | .Provider = "Microsoft.Jet.OLEDB.4.0" | .Mode = adModeWrite | .Properties("Jet OLEDB:Database Password") = "abc" | .Open dbName | End With | | 'Create the recordset | Dim rs As ADODB.Recordset | Set rs = New Recordset | | 'Determines what records to show | Dim strSQL As String | strSQL = "DROP TABLE MYTABLE;" | | 'Retreive the records | rs.CursorLocation = adUseClient | rs.Open strSQL, cnn | | 'close connection | cnn.Close | Set cnn = Nothing | Set rs = Nothing | |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
office excel 2003 databases/forms ;need to print checks etc | Setting up and Configuration of Excel | |||
how to access databases from excel using ms query and odbc? | Excel Discussion (Misc queries) | |||
Security for Viewing MS Access Databases From Excel Datasource | Excel Discussion (Misc queries) | |||
Working with protected Databases Access through Excel | Excel Programming | |||
Excel 2003, XML, databases and macros | Excel Programming |