It appears you have not yet registered with DEVPPL. To register please click here... (it's fast, easy and free!)

Forum

Log In Sponsors
Board index Programming ASP & ASP.NET Forum

Can you give me some help to solve this problem

Can you give me some help to solve this problem

Postby zllatar on Thu Mar 26, 2009 1:35 pm

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
zllatar
 
Posts: 2
Joined: Thu Mar 26, 2009 10:03 am

Who is online

Users browsing this forum: No registered users and 0 guests