ich hatte auch auf Google, Bing und anderen Suchmaschinen gesucht aber deine Antwort/Zitat nicht gefunden.
Jedenfalls Danke, Danke ich habe es ausprobiert und es funktioniert. Sehr Gut!
Code: Alles auswählen
Procedure.a File_Create(vFiles.s, vUser.s = #Null$, vCode.s = #Null$)
Shared mTreiber
Protected n.i, *pMemory, pResult.a, pAttributes.s
Protected pExt.s = UCase(GetExtensionPart(vFiles))
If (pExt="ACCDB")
pAttributes = "CREATE_DBV12=" + vFiles + " General;UID=" + vUser + ";PWD=" + vCode + ";"
ElseIf (pExt="MDB")
pAttributes = "CREATE_DB=" + vFiles + " General;UID=" + vUser + ";PWD=" + vCode + ";"
EndIf
If SQLConfigDataSource(#mDatabase, #mADD_DSN, #mTreiber1, @pAttributes)
pResult = #True
mTreiber = #mTreiber1
ElseIf SQLConfigDataSource(#mDatabase, #mADD_DSN, #mTreiber2, @pAttributes)
pResult = #True
mTreiber = #mTreiber2
EndIf
ProcedureReturn pResult
EndProcedure