# Re: 请教一个SQL与VB的沟通问题

Posted by 纪文和 on July 19, 1998 at 17:46:55:

In Reply to: 请教一个SQL与VB的沟通问题 posted by Sonora on July 19, 1998 at 15:17:49:

: Private Sub SockTimer_Timer(Index As Integer)

: Dim SockData As Database
: Set SockData = OPENDATABASE("C:\DATA.MDB")
: Dim FoundRec As Recordset

: Set FoundRec = SockData.OpenRecordset("SELECT SubName FROM SockWork " _
: & "WHERE SockIndex=" + CStr(Index) + ";")

-------> 变数 = FoundRec("SubName")

: End Sub

Follow Ups: