в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:46:58Z

1 версия

Новая страница

==Connecting with Microsoft Access with ADODB.Connection==



<source lang="vb">

Sub openForm()
Dim con As ADODB.Connection
Set con = CurrentProject.Connection
End Sub
</source>

==Establishing a Connection to the Current Access Database==



<source lang="vb">

Sub Connect_ToCurrentDb()
Dim conn As ADODB.Connection
Dim fs As Object
Dim txtfile As Object
Dim I As Integer
Set conn = CurrentProject.Connection
Set fs = CreateObject("Scripting.FileSystemObject")
Set txtfile = fs.CreateTextFile("C:\Propfile.txt", True)
For I = 0 To conn.Properties.Count - 1
Debug.Print conn.Properties(I).Name & "=" & _
conn.Properties(I).Value
txtfile.WriteLine (conn.Properties(I).Name & "=" & _
conn.Properties(I).Value)
Next I
Debug.Print "Please check results in the " & _
"Immediate window." & vbCrLf _
& "The results have also been written to " _
& "the "C:\Propfile.txt" file."
txtfile.Close
Set fs = Nothing
conn.Close
Set conn = Nothing
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Access/CurrentProject Connection - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия