help with database connection - urgent
Hi i got this code from a web site and its working, i just need to inser the password of my database and i really don't know where it shoul go. Anyone could help? Written : 23-May-2003 by Andy Wiggins - Byg Software Ltd Function DbSource() DbSource = ThisWorkbook.Path & "/bdalunosindex.mdb" End Function Function DbConnection() DbConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= & DbSource & ";" End Function Sub SelectAndReturnRecordsADO() Dim cnn As ADODB.Connection Dim rstRecordset As ADODB.Recordset Dim cmdCommand As ADODB.Command Dim numberOfRows Dim vtSql Dim c As Field '' Open the connection. Set cnn = New ADODB.Connection cnn.Open DbConnection '' Set the command text. Set cmdCommand = New ADODB.Command Set cmdCommand.ActiveConnection = cnn vtSql = " SELECT * FROM Pagamento ORDER BY Pagamento.c_Contrato" With cmdCommand .CommandText = vtSql .CommandType = adCmdText .Execute End With '' Open the recordset. Set rstRecordset = New ADODB.Recordset Set rstRecordset.ActiveConnection = cnn rstRecordset.Open cmdCommand rstRecordset.MoveFirs ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com |
help with database connection - urgent
joao
Use Data - Get External Data to create a new QueryTable in a new workbook using the same database. Then, in the immediate window, type ?Sheet1.QueryTables(1).Connection to get the propert connection string for that query. Dump the ODBC part at the start and that's what you should use for your DbConnection variable. -- Dick Kusleika MVP - Excel www.dicks-clicks.com Post all replies to the newsgroup. "joao" wrote in message ... Hi i got this code from a web site and its working, i just need to insert the password of my database and i really don't know where it should go. Anyone could help? Written : 23-May-2003 by Andy Wiggins - Byg Software Ltd Function DbSource() DbSource = ThisWorkbook.Path & "/bdalunosindex.mdb" End Function Function DbConnection() DbConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DbSource & ";" End Function Sub SelectAndReturnRecordsADO() Dim cnn As ADODB.Connection Dim rstRecordset As ADODB.Recordset Dim cmdCommand As ADODB.Command Dim numberOfRows Dim vtSql Dim c As Field '' Open the connection. Set cnn = New ADODB.Connection cnn.Open DbConnection '' Set the command text. Set cmdCommand = New ADODB.Command Set cmdCommand.ActiveConnection = cnn vtSql = " SELECT * FROM Pagamento ORDER BY Pagamento.c_Contrato" With cmdCommand CommandText = vtSql CommandType = adCmdText Execute End With '' Open the recordset. Set rstRecordset = New ADODB.Recordset Set rstRecordset.ActiveConnection = cnn rstRecordset.Open cmdCommand rstRecordset.MoveFirst ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
help with database connection - urgent
Try this link (all on one line):
http://www.able-consulting.com/MDAC/...orMicrosoftJet It has demo connection strings for standard security, Workgroup security, .MDB password, etc. joao wrote in message ... Hi i got this code from a web site and its working, i just need to insert the password of my database and i really don't know where it should go. Anyone could help? Written : 23-May-2003 by Andy Wiggins - Byg Software Ltd Function DbSource() DbSource = ThisWorkbook.Path & "/bdalunosindex.mdb" End Function Function DbConnection() DbConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DbSource & ";" End Function Sub SelectAndReturnRecordsADO() Dim cnn As ADODB.Connection Dim rstRecordset As ADODB.Recordset Dim cmdCommand As ADODB.Command Dim numberOfRows Dim vtSql Dim c As Field '' Open the connection. Set cnn = New ADODB.Connection cnn.Open DbConnection '' Set the command text. Set cmdCommand = New ADODB.Command Set cmdCommand.ActiveConnection = cnn vtSql = " SELECT * FROM Pagamento ORDER BY Pagamento.c_Contrato" With cmdCommand .CommandText = vtSql .CommandType = adCmdText .Execute End With '' Open the recordset. Set rstRecordset = New ADODB.Recordset Set rstRecordset.ActiveConnection = cnn rstRecordset.Open cmdCommand rstRecordset.MoveFirst ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
help with database connection - urgent
Hi, TYhanks for your help, but it isnt working for me. I tried the link an the two options but it now returns another error message (before wa invalid password) now it says something about my workgroup and someon that have opened the database in exclusive mode. any other idea ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com |
help with database connection - urgent
joao
What connection string did you get with the query table? What connection string are you using in your code? -- Dick Kusleika MVP - Excel www.dicks-clicks.com Post all replies to the newsgroup. "joao" wrote in message ... Hi, TYhanks for your help, but it isnt working for me. I tried the link and the two options but it now returns another error message (before was invalid password) now it says something about my workgroup and someone that have opened the database in exclusive mode. any other idea? ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
All times are GMT +1. The time now is 03:35 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com