Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datenbankprogrammierung

Datenbankprogrammierung
24.04.2003 10:00:22
kobra
Hi Gemeinde,

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datenbankprogrammierung
24.04.2003 11:09:12
Michael Scheffler

Hi,

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

Anzeige
Danke o.T.
25.04.2003 08:08:19
kobra



Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige