Danke
Manuel Keller
Peter
"Manuel Keller" <marv...@hotmail.com> schrieb im Newsbeitrag
news:O78bV5I...@cppssbbsa02.microsoft.com...
...
> Ich greife über DAO auf eine Excel Tabelle zu.Auf meinem PC
fuktioniert es,
> auf einem Fremdrechner (Win98) nicht.
> Bekomme immer folgende Fehlermeldung:(Installierbaren ISAM Treiber
nicht
> gefunden.).
...
Danke
Manuel Keller
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& DBName & ";Extended Properties=Excel 8.8;"
cn.Open
Peter
Manuel Keller <marv...@hotmail.com> schrieb in im Newsbeitrag:
eujMI6SYAHA.172@cppssbbsa04...
Cols = MSFlexGrid1.RowSel
ProgressBar1.Value = ProgressBar1.Min
MSFlexGrid2.Refresh
Cmdlg1.CancelError = True
On Error GoTo errhandler:
Cmdlg1.ShowOpen
Data1.DatabaseName = Cmdlg1.FileName
Data1.Refresh
cmdlg2.ShowOpen
Data2.DatabaseName = cmdlg2.FileName
Data2.Refresh
Was fehlt???
Auf meinem Rechner läuft es kompiliert ohne Probleme.
Access Zugriff läuft auf dem Fremdrechner, aber sobald Ich auf die
Excel Tabelle zugreifen will kommt genannte Fehlermeldung.
ODBC Einstellungen habe Ich auf dem Fremdrechner mit den Einstellungen
meines Rechners abgeglichen. Mir fällt da nix mehr ein an was es noch liegen
könnte.
Danke
Manuel Keller
Private Sub Command1_Click()
Debug.Print Data1.Connect: ' altec Connect-Eigenschaft
Data1.Connect = "Excel 8.8;": ' fehlerhaftes ISAM
Data1.Refresh
Set MSFlexGrid1.DataSource = Data1
End Sub
Da Du bisher wichtige Details nicht mitgeteilt hast, sind weitergehende
Empfehlungen schwer. Bei welcher Codezeile tritt Dein Fehler auf? Welche
Connect-Eigenschaft hast Du gesetzt? Welche Excel-Version ist auf den
unterschiedlichen Rechnern installiert? Wie hast Du im VuW die
Zugriffsroutinen eingebunden?
Peter
Manuel Keller <marv...@hotmail.com> schrieb in im Newsbeitrag:
e#Sw0HWYAHA.303@cppssbbsa05...
...
Private Sub Form_Load()
Dim Row1 As String
Dim Col As String
Dim Cols As String
Dim Zeile As Long
Dim Spalte As Long
Dim Meldung As String
Dim Warten As Long
Dim Spalte1 As Long
Dim Fields As Field
Dim x As Variant
Dim Exce As Variant
Cols = MSFlexGrid1.RowSel
ProgressBar1.Value = ProgressBar1.Min
MSFlexGrid2.Refresh
'On Error GoTo errhandler:
Cmdlg1.ShowOpen
Data1.DatabaseName = Cmdlg1.FileName
Data1.Connect = "Excel 8.0;"
Data1.Refresh
MSFlexGrid1.DataSource = Data1'<<<<<Hier bekomme Ich jetzt "Typen
unverträglich"!
cmdlg2.ShowOpen 'Im Debugging wird mir am
Mauszeiger über "MSflexgrid1.DataSource"
Data2.DatabaseName = cmdlg2.FileName '"Nothing" angezeigt,obwohl über
"Data1" "Data1="Data1"" angezeigt wird!
Data2.Refresh
MSFlexGrid1.Refresh
Row1 = MSFlexGrid1.Rows
Col = ""
Label1.Caption = Data1.DatabaseName
Label7.Caption = Data2.DatabaseName
Label2.Caption = "Datensätze: " + Row1
Ich greife übrigens auf eine Excel '97 Tabelle zu.
Hast Du mir da einen Tipp was Ich da anders machen muß?
Wie gesagt, auf meinem Rechner läuft das Programm. (Mein Programm wäre
soweit auch fertig).
Nur mit dem Problem auf einem Fremdrechner.....
Wenn Du weitere Infos brauchst, schreib mir was Du brauchst.(Bin langsam am
verzweifeln!)
Danke
Manuel Keller
Private Sub Form_Load()
Dim Row1 As String
Dim Col As String
Dim Cols As String
Dim Zeile As Long
Dim Spalte As Long
Dim Meldung As String
Dim Warten As Long
Dim Spalte1 As Long
Dim Fields As Field
Dim x As Variant
Dim Exce As Variant
Cols = MSFlexGrid1.RowSel
ProgressBar1.Value = ProgressBar1.Min
MSFlexGrid2.Refresh
'On Error GoTo errhandler:
Cmdlg1.ShowOpen
Data1.DatabaseName = Cmdlg1.FileName
Set MSFlexGrid1.DataSource = Data1
Peter
Manuel Keller