/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Åben en mdb fil
Fra : Danlamp Teknik


Dato : 20-08-01 10:01

Hejsa
Jeg har en Access db, som jeg gerne ville kunne åbne ved eks. at trykke på
en knap på min VB form.

Lidt lige som når man åbner en txt fil, men det skal være en *.mdb fil.



 
 
Thomas R (23-08-2001)
Kommentar
Fra : Thomas R


Dato : 23-08-01 10:15

hejsa.

Gør nogenlignede det her

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal
lngHWnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal
lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As
Long

Declare Function GetDesktopWindow Lib "user32" () As Long

Public Function OpenDocument(ByVal strCompletePath As String) As Long
Dim lngHDC As Long
Dim lngReturn As Long

If strCompletePath <> "" Then
lngHDC = GetDesktopWindow()
lngReturn = ShellExecute(lngHDC, "Open", strCompletePath, "", "C:\",
SW_SHOWNORMAL)
If lngReturn <= 32 Then Err.Raise vbObjectError + lngReturn,
App.Title, "Could not open document " & strCompletePath
End If
OpenDocument = lngReturn
End Function



--
Thomas R - Developer DK

"Danlamp Teknik" <danlamp@danlamp.dk> wrote in message
news:9lqk8h$ldc$1@sunsite.dk...
> Hejsa
> Jeg har en Access db, som jeg gerne ville kunne åbne ved eks. at trykke på
> en knap på min VB form.
>
> Lidt lige som når man åbner en txt fil, men det skal være en *.mdb fil.
>
>



Frederik Jensen (29-08-2001)
Kommentar
Fra : Frederik Jensen


Dato : 29-08-01 09:09


"Danlamp Teknik" <danlamp@danlamp.dk> wrote in message
news:9lqk8h$ldc$1@sunsite.dk...
> Hejsa
> Jeg har en Access db, som jeg gerne ville kunne åbne ved eks. at trykke på
> en knap på min VB form.

I VB6 kan man anvende et Data Environment. Det er faktisk ret nemt. Under
menu - Project - add findes data env. Vælg og opret derefter en connection.
I den forbindelse sammenkobles forbindelsen til database. koden kaldes
således:

With DataEnvironment1
..Connection1.Open
Set rs = .Connection1.Execute("SELECT * FROM stbruger")
..Connection1.Close

--
Frederik Jensen, Judex













Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste