ich bin derzeit beim Versuch eine Datenbank ohne Access zu erstellen und benötige noch etwas Literatur.
Kennt von euch jemand ein gutes Buch oder gibt es auf Herber's CD vielleicht ein paar gute Beispiele dazu???
Danke im Voraus
Markus
ich bin derzeit beim Versuch eine Datenbank ohne Access zu erstellen und benötige noch etwas Literatur.
Kennt von euch jemand ein gutes Buch oder gibt es auf Herber's CD vielleicht ein paar gute Beispiele dazu???
Danke im Voraus
Markus
google mal nach den Stcichworten ADO ADOX vb database.
Gruß
Micha
PS:
Sub AccessNewDataBase(varExFile As Variant, varAcFile)
'========================================================================================
'2002-02-20, Michael Scheffler, IMA
' Creates new Acces data base with the same name as Excel file
'========================================================================================
Dim sngTim As Single
Dim wS
Dim r
' Delete any previous temp file
On Error Resume Next
Kill varAcFile
On Error GoTo 0
' Open excel file
Workbooks.Open varExFile
' Create a new database in 3.5 format (Access 97)
Set oCat = New ADOX.Catalog
oCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & varAcFile & ";" & _
"Jet OLEDB:Engine Type=4;"
For Each wS In ActiveWorkbook.Worksheets
' Create tables
CreateAccessTable wS.Name
Worksheets(wS.Name).Activate
DoEvents
strInfo = "Preparation of"
Load frmInfo
frmInfo.Show
sngTim = Timer
Do While Timer < sngTim + 0.5
DoEvents
Loop
Unload frmInfo
Select Case wS.Name
Case "left", "right"
CreateLeftRight wS.Name ' Left / Right table
Case Else
CreateOther wS.Name ' Other tables
End Select
Next
Set oCat = Nothing ' Deletes Connection
Set cnn = New ADODB.Connection
' Open the connection.
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open varAcFile
End With
For Each wS In ActiveWorkbook.Worksheets
Worksheets(wS.Name).Activate
strInfo = "Export into"
Load frmInfo
frmInfo.Show
DoEvents
sngTim = Timer
Do While Timer < sngTim + 0.5
DoEvents
Loop
Unload frmInfo
Select Case wS.Name
Case "left", "right"
WriteLeftRight wS.Name ' Left / Right table
Case Else
WriteOther wS.Name ' Other tables
End Select
' Close connection and destroy object variables.
Next
cnn.Close
Set cnn = Nothing
ActiveWorkbook.Close
End Sub