Information générale
Catégorie:
Codage, syntaxe et commandes
Dear All,
I stuck in making this code in Visual Fox Pro , So I wrote it in VB 6.0. How I can Convert it into Visual FoxPro?
Please find out the code...
the form i designed is composed of four controls
Txt_Initial as text box
Cmb_Sem as Combo Box
Cmb_Mid as Combo Box
Cmd_Ok as Command Button
Regards,
Dim Cn As New rdoConnection
Dim Qd As rdoQuery
Private Sub Cmd_Ok_Click()
Screen.MousePointer = vbHourglass
Call Fill_Grid
Screen.MousePointer = vbNormal
End Sub
Private Sub Form_Load()
Cn.CursorDriver = rdUseOdbc
Cn.Connect = "dsn=ounis"
Cn.EstablishConnection
End Sub
Private Sub Fill_Grid()
Dim Rs As rdoResultset
Dim RsTemp As rdoResultset
Dim Str As String
Dim Arr(4) As String
Dim Temp1 As String
Dim Temp2 As String
Arr(0) = "H1"
Arr(1) = "H2"
Arr(2) = "H3"
Arr(3) = "H4"
Cn.Execute ("Delete from Temp")
For i = 0 To 3
Str = "Select Name , LastName , StudentCod From Ounis " _
& " Where Initial" & Arr(i) & " = '" & Txt_Initial.Text & "'"
Set Rs = OpenQuery(Str)
While Not Rs.EOF
Str = "Select * from Temp Where 1 <> 1 "
Set RsTemp = OpenQuery(Str)
With RsTemp
.AddNew
!StudentNo = Rs!StudentCod
!Name = Rs!Name
!LastName = Rs!LastName
!Mark = 0
Select Case Cmb_Sem.ListIndex
Case 0:
Select Case Cmb_Mid.ListIndex
Case 0:
Temp2 = "1"
Case 1:
Temp2 = "2"
End Select
Case 1:
Select Case Cmb_Mid.ListIndex
Case 0:
Temp2 = "3"
Case 1:
Temp2 = "4"
End Select
End Select
Temp1 = "HIMARK" & (i + 1) & Temp2
!FieldToBeUpdated = Temp1
.Update
End With
RsTemp.Close
Rs.MoveNext
Wend
Rs.Close
Next i
End Sub
Private Function OpenQuery(Sql As String, Optional QueryName As String = "") As rdoResultset
Dim Qod As New rdoQuery
Dim Ros As rdoResultset
If QueryName = "" Then QueryName = "Temp"
With Qod
.Name = QueryName
.Sql = Sql
Set .ActiveConnection = Cn
Set Ros = .OpenResultset(rdOpenKeyset, rdConcurRowVer)
End With
Set OpenQuery = Ros
End Function
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement