Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione Tabelle con Campi di Vario Formato

Ciao A tutto il NG...
Ho la necessita di create via Codice VB6 SP5 un DBase di Access97, con varie
tabelle (Circa 10), dove all'interno ci sono campi Contatore, Campi Numerici
a Precisione Singola ecc.ecc. Ebbene, con l'aiuto del Mitico Google (Che il
Mondo Loda il Creatore del Medesimo), ho trovato un Post Datato 28/9/1999
del Sig. Colonna Walter che a risposto a questa richiesta con tanto di
codice... il problema č che non c'erano dei campi con certe caratteristiche
(Contatore, precisione singola... ecc.ecc.) ed io non risco a trovare un
Help su MSDN98 dove mi da tutte i vari formati.. es.:
...................
......................
Set tdfTab = dbArchivio.CreateTableDef("ANAGR_ARTICOLI")
With tdfTab
    ' *** Aggiunta campi
    .Fields.Append .CreateField("ID", db ? )
- Questo campo ID mi serve in Formato Contatore
    .Fields.Append .CreateField("Cod_Articolo", dbText, 50)
    .Fields.Append .CreateField("Descrizione", dbText, 250)
    .Fields.Append .CreateField("Taglia", dbText, 50)
    .Fields.Append .CreateField("Tipologia", dbText, 50)
    .Fields.Append .CreateField("Cod_Fornitore", dbText, 50)
    .Fields.Append .CreateField("Fornitore", dbText, 250)
    .Fields.Append .CreateField("Pr_Acquisto", dbCurrency)
    .Fields.Append .CreateField("Pr_Euro", dbSingle)
    .Fields.Append .CreateField("Percq", dbInteger)
    .Fields.Append .CreateField("Pr_Rimborso", dbCurrency)
    .Fields.Append .CreateField("Pr_Rim_Eu", dbSingle)
    .Fields.Append .CreateField("NOTE", dbText, 250)
................
....................
Per quanto riguarda i Campi Pr_Acquisto ho provato da solo ad inserire
DBCurrency, ed effettivamente funge, ma col contatore, non c'č verso....
Sapete mica dove posso prendere informazioni?
Un'altra cosa.. ho provato a premere F1 dopo aver selezionato ".CreateField"
ma mi chiede il file "DAO350.HLP" che non ho, ne su Hardisk ne su MSDN.
Grazie e a presto. Il Max

 DBCurrency, ed effettivamente funge, ma col contatore, non c'è verso....


 DBCurrency, ed effettivamente funge, ma col contatore, non c'è verso....


Forse puo' esserti utile questa funzione (DAO) che converte i tipi di dato del DB in quelli di VB.
Ci potrebbero essere degli errori di interpretazione.
--------------------------------
Public Function GetFieldType(fieldDBType As Integer) As String
  Dim str As String
  Dim defaultType As String
  defaultType = "String"
  Select Case fieldDBType
    Case dbBigInt
      str = "long" '"Big integer"
    Case dbBinary
'      str = "Binary"
      str = defaultType
    Case dbBoolean
      str = "Boolean" 'uguale a VB
    Case dbByte
      str = "Byte" 'uguale a VB
    Case dbChar
'      str = "Char"
      str = defaultType
    Case dbCurrency
      str = "Currency" 'uguale a VB
    Case dbDate
'      str = "Date / Time"
      str = defaultType
    Case dbDecimal
'      str = "Decimal"
      str = defaultType
    Case dbDouble
      str = "double" '"Double"
    Case dbFloat
      str = "single" '"Float"
    Case dbGUID
'      str = "Guid"
      str = defaultType
    Case dbInteger
      str = "Integer" 'uguale a VB
    Case dbLong
      str = "Long" 'uguale a VB
    Case dbLongBinary
'      str = "Long Binary (OLE Object)"
      str = defaultType
    Case dbMemo
      str = "String" '"Memo"
    Case dbNumeric
      str = "integer" '"Numeric"
    Case dbSingle
      str = "Single" 'uguale a VB
    Case dbText
      str = "string" '"Text"
    Case dbTime
'      str = "Time"
      str = defaultType
    Case dbTimeStamp
'      str = "Time Stamp"
      str = defaultType
    Case dbVarBinary
'      str = "VarBinary"
      str = defaultType
  End Select
  GetFieldType = str
End Function

 > DBCurrency, ed effettivamente funge, ma col contatore, non c'č verso....


 wrote in message
9tik91$psl$1...@nreadb.inwind.it...
