|
I received a project for the video but he has a problem, when wilt thou that we need to use instaliras Office 2003 that could use this program, "Video" but I would like to change to do so to improve my mistake that I did not need a permanent office to would be correct, and now that you asked on the forum to help in this ... Thanks in advance ...
--------------------------------------------------------------------------------------
Private Sub Parametri()
Dim ladoRs As ADODB.Recordset
Dim lstrSql As String
Set ladoRs = New ADODB.Recordset
lstrSql = "SELECT * from servisi"
ladoRs.Open lstrSql, "DSN=" & "Videoteka" & ";" & "UID=" & gstrUID, adOpenDynamic, adLockOptimistic, adCmdText
If ladoRs.BOF = False And ladoRs.BOF = False Then
txtGratis.Text = ladoRs!gf
gintGratis = CInt(ladoRs!gf)
txtVrac.Text = ladoRs!rv
gintVrac = CInt(ladoRs!rv)
Else
txtGratis.Text = "0"
gintGratis = 0
txtVrac.Text = "0"
gintVrac = 0
End If
Set ladoRs = Nothing
End Sub
|
