home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / copyst1a / datos.bas
Encoding:
BASIC Source File  |  1999-09-22  |  1.7 KB  |  55 lines
  1. Attribute VB_Name = "DATOS"
  2. Global temp As String
  3. Sub COPYSTRU(DBFROM As Database, RGFROM As Recordset, DBNOMB As String)
  4.     Dim tabla As String
  5.     Dim c As String
  6.     tabla = "CREATE TABLE " & App.Path & "\" & Trim(DBNOMB) & "("
  7.     For i = 0 To RGFROM.Fields.Count - 1
  8.         c = RGFROM.Fields(i).Name & " " & Mid(TipoCampo(RGFROM.Fields(i).Type), 3, Len(TipoCampo(RGFROM.Fields(i).Type))) & IIf(TipoCampo(RGFROM.Fields(i).Type) = "dbText" Or TipoCampo(RGFROM.Fields(i).Type) = "dbByte", " (" & RGFROM.Fields(i).Size & ")", "")
  9.         If i <> RGFROM.Fields.Count - 1 Then
  10.             tabla = tabla & c & ","
  11.         Else
  12.             tabla = tabla & c
  13.         End If
  14.     Next
  15.     tabla = tabla + ");"
  16.     DBFROM.Execute tabla
  17. End Sub
  18.  
  19. Function TipoCampo(intTipo As Integer) As String
  20.  
  21.     Select Case intTipo
  22.         Case dbBoolean
  23.             TipoCampo = "dbBoolean"
  24.         Case dbByte
  25.             TipoCampo = "dbByte"
  26.         Case dbInteger
  27.             TipoCampo = "dbInteger"
  28.         Case dbLong
  29.             TipoCampo = "dbLong"
  30.         Case dbCurrency
  31.             TipoCampo = "dbCurrency"
  32.         Case dbSingle
  33.             TipoCampo = "dbSingle"
  34.         Case dbDouble
  35.             TipoCampo = "dbDouble"
  36.         Case dbDate
  37.             TipoCampo = "dbDateTime"
  38.         Case dbText
  39.             TipoCampo = "dbText"
  40.         Case dbLongBinary
  41.             TipoCampo = "dbLongBinary"
  42.         Case dbMemo
  43.             TipoCampo = "dbMemo"
  44.         Case dbGUID
  45.             TipoCampo = "dbGUID"
  46.     End Select
  47.  
  48. End Function
  49.  
  50.  
  51. Public Function NATEMP() As String
  52.     Randomize
  53.     NATEMP = "Q" + Trim(Str(Int((999999 * Rnd) + 1)))
  54. End Function
  55.