|
ｿｽ@ｿｽｿｽｿｽGｿｽｿｽｿｽ[3709ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽﾚ具ｿｽ 2011/05/22(ｿｽｿｽ) 01:00:28
ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽ@VB6.0ｿｽ{Access2002 ｿｽﾅ作成ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽAｿｽvｿｽｿｽｿｽNｿｽｿｽｿｽｿｽ
'Access ｿｽﾌ新ｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽ成
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase App.Path & "¥AAA.mdb", False
ｿｽﾆゑｿｽｿｽﾄ接托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾊ途ｿｽA
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "¥AAA.mdb"
Set rs = New ADODB.Recordset
strSQL = "Select ｿｽ`"
rs.Open strSQL, cn
ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽ
ｿｽGｿｽｿｽｿｽ[3709 ｿｽｿｽｿｽﾌ托ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽ驍ｽｿｽﾟに接托ｿｽｿｽｿｽgｿｽpｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽﾌコｿｽｿｽｿｽeｿｽLｿｽXｿｽgｿｽﾅ閉ゑｿｽｿｽｿｽ
ｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽ驍｢ｿｽﾍ厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇのようｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ抵ｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾚ具ｿｽ 2011/05/22(ｿｽｿｽ) 12:40:21
cn.ConnectionString = "Providerｿｽ`"
ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽ
cn.Open "Provider=ｿｽ`"
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽ@ｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
