- 198
- 0
- CPU
- Q6600 2.8Ghz :D
- Scheda Madre
- via apollo KT
- HDD
- 500gb hitachi 7200rpm 16mb
- RAM
- 4gb kingston 800mhz CL8
- GPU
- ATi 5850 1gb Xtreme
- Audio
- integrato
- Monitor
- Samsung 22" 2ms
- PSU
- Tt 775w BRONZE 12v+ 64A LOOOL
- Case
- aperto :D
- OS
- WINZOZ 7
scusate ragazzi ma ho un problema guardate
If Dir("C:\TempFile\ecom_affiliati2.mdb") = "" Then Exit Sub
Dim DbCnn, TxtCnn As New Data.OleDb.OleDbConnection
Dim CnnString, CommandText As String
Dim Cmm As New Data.OleDb.OleDbCommand
Dim TxtDr As OleDb.OleDbDataReader
CnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TempFile\ecom_affiliati2.mdb;User Id=admin;Password=;"
DbCnn.ConnectionString = CnnString
DbCnn.Open()
CnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TempFile\ecom_affiliati2.mdb;User Id=admin;Password=;"
TxtCnn.ConnectionString = CnnString
TxtCnn.Open()
CommandText = "SELECT * FROM articolif11.txt"
Cmm.CommandText = CommandText
Cmm.Connection = TxtCnn
TxtDr = Cmm.ExecuteReader
mi da errore
Impossibile trovare il file "C:\Documents and Settings\Marino\Documenti\Visual Studio 2005\Projects\Gfk\AggiornaDb\bin\Debug\articolif11.mdb".
aiuto plz ç_ç
If Dir("C:\TempFile\ecom_affiliati2.mdb") = "" Then Exit Sub
Dim DbCnn, TxtCnn As New Data.OleDb.OleDbConnection
Dim CnnString, CommandText As String
Dim Cmm As New Data.OleDb.OleDbCommand
Dim TxtDr As OleDb.OleDbDataReader
CnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TempFile\ecom_affiliati2.mdb;User Id=admin;Password=;"
DbCnn.ConnectionString = CnnString
DbCnn.Open()
CnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TempFile\ecom_affiliati2.mdb;User Id=admin;Password=;"
TxtCnn.ConnectionString = CnnString
TxtCnn.Open()
CommandText = "SELECT * FROM articolif11.txt"
Cmm.CommandText = CommandText
Cmm.Connection = TxtCnn
TxtDr = Cmm.ExecuteReader
mi da errore
Impossibile trovare il file "C:\Documents and Settings\Marino\Documenti\Visual Studio 2005\Projects\Gfk\AggiornaDb\bin\Debug\articolif11.mdb".
aiuto plz ç_ç