Stryge69
Messages postés2Date d'inscriptionlundi 5 février 2007StatutMembreDernière intervention14 juin 2010
-
9 juin 2010 à 20:09
Stryge69
Messages postés2Date d'inscriptionlundi 5 février 2007StatutMembreDernière intervention14 juin 2010
-
14 juin 2010 à 17:17
Bonjour,
J'ai le code source d'un programme qui a été fait avec VB3 16 bit, et je souhaite le faire fonctionner sous un enviroment Windows 64 bits...
Est-ce possible de convertir le code en 32 bits?
Quelle est la meilleure marche à suivre?
Y'en a t'il qui ont déjà experimenté cela?
J'ai lu pas mal de choses, comme par exemple PortTool, qui passe en revue le code et propose l'équivalent 32 bit, avez vous deja essayé?
Merci
Stryge69
Messages postés2Date d'inscriptionlundi 5 février 2007StatutMembreDernière intervention14 juin 2010 14 juin 2010 à 17:17
Voici par exemple (le code est assez long, j'ai juste mis un morceau):
Public Sub Ouvrir_Fiche()
On Error GoTo Errhandler1
Dim Db As Database, Td As TableDefs, Fld As Fields
Dim f_trans As Table
Dim f_ident As Table
Dim f_div As Table
Dim f_employe As Table
Dim f_prov As Table
Dim f_unit As Table
Dim f_exptype As Table
Dim f_endr As Table
Dim reponse As Integer, pdep As Integer
Dim Mois As String, destf1 As String, destf2 As String, sourcf As String
Dim cie_counter As Integer, save_counter As Integer, ndef_cie As Integer
Dim def_cie As String
Dim s_no_empl As Long, s_no_serv As Long, s_no_div As Long, s_no_exptype As Long, s_no_endr As Long
Dim nlength As Integer
Set Db = OpenDatabase(File_progdir & "\patsetup.mdb")
' Load employee name into Comb_nom
Set f_employe = Db.OpenTable("Employe")
f_employe.Index = "EMPKEY"
f_employe.Seek "=", s_no_empl
If f_employe.NoMatch Then
Comb_nom.ListIndex = -1
Else
Comb_nom.Text = "(" + CStr(f_employe("empl_no")) + ") " + f_employe("empl_l_name") + ", " + f_employe("empl_f_name")
End If
f_employe.Close
' Load employee department into Comb_srv
Set f_unit = Db.OpenTable("unit")
f_unit.Index = "UNITKEY"
f_unit.Seek "=", s_no_serv
If f_unit.NoMatch Then
Comb_srv.ListIndex = -1
Else
If ls = 1 Then
Comb_srv.Text = "(" + CStr(f_unit("unit_no")) + ") " + f_unit("unit_name_f")
ElseIf ls = 2 Then
Comb_srv.Text = "(" + CStr(f_unit("unit_no")) + ") " + f_unit("unit_name_e")
End If
End If
f_unit.Close
' Load employee division into Comb_div
Set f_div = Db.OpenTable("Division")
f_div.Index = "DIVKEY"
f_div.Seek "=", s_no_div
If f_div.NoMatch Then
Comb_div.ListIndex = -1
Else
If ls = 1 Then
Comb_div.Text = "(" + CStr(f_div("div_no")) + ") " + f_div("div_nom_f")
ElseIf ls = 2 Then
Comb_div.Text = "(" + CStr(f_div("div_no")) + ") " + f_div("div_nom_a")
End If
End If
f_div.Close