cvs diff -w -i frmMigration.frm (in directory F:\CVS\pgadmin\) Index: frmMigration.frm =================================================================== RCS file: /usr/local/cvsroot/pgadmin/pgadmin/frmMigration.frm,v retrieving revision 1.2 diff -w -i -r1.2 frmMigration.frm 1130a1131,1149 > Select Case rsTemp.Fields(Z).Type > ' 04/24/2001 Jean-Michel POURE > ' Usefull tricks to avoid bugs in non-English systems : > ' replace comma with dots in numerical values > ' and get rid of money acronyms (like FF for example) > Case adCurrency, adDouble, adSingle, adDecimal > Values = Values & "'" & Str(Val(Replace(rsTemp.Fields(Z).Value, ",", "."))) & "', " > > ' Another usefull tricks to avoid bugs in non-English systems : > ' Convert 'True' or 'Vrai' or 'T' into -1 > ' and 'False' or 'Faux' or 'F' into 0 > ' In PostgreSQL driver uncheck Bool as Char > Case adBoolean > Dim tempValue As String > tempValue = rsTemp.Fields(Z).Value > If (tempValue = "F") Then tempValue = "False" > If (tempValue = "T") Then tempValue = "True" > Values = Values & "'" & CBool(tempValue) * "-1" & "', " > 1134c1153 < If rsTemp.Fields(Z).Type = adDate Or rsTemp.Fields(Z).Type = adDBDate Or rsTemp.Fields(Z).Type = adDBTimeStamp Then --- > Case adDate, adDBDate, adDBTimeStamp 1142c1161,1163 < Else --- > > ' Text values and others > Case Else 1144c1165 < End If --- > End Select