|
|
Postada em 11/05/2007 12:29 hs
to tentando usar o seguinte codigo, mas nao funciona, dá erro no nome da tabela CadLocalPrat, fala q falta variavel Dim oRs As ADODB.Recordset
Set oRs = BancoGeral.OpenSchema(adSchemaTables, Array(Empty, Empty, CadLocalPrat, "TABELA"))
If Not oRs.EOF Then
MsgBox "A tabela <<" & CadLocalPrat & ">> foi localizada em => " & BancoGeral
oRs.Close
Else
BancoGeral.Execute "CREATE TABLE CadLocalPrat(seq AUTOINCREMENT), Local text(250), SubLocal text(250);"
oRs.Close
End If
me ajude ai... |
|
|
|
|
|
|
|
Postada em 11/05/2007 13:24 hs
cara tenta usar isso!! pode ser que funcione falo um abraço On Error GoTo CriaTabela:
executa um select na tabela, caso ele não exista, trata o erro CriaTabela:
BancoGeral.Execute "CREATE TABLE ....... |
|
|
|
|
|
Postada em 18/05/2007 15:43 hs
amigos.. ainda nao consegui resolver o problema pra saber se a tabela existe.... agora, aproveitando o momento aqui, tem algum jeito d saber qual tipo d um determinado campo dentro da tabela,, tipo: saber se ele é texto, numero, data, etcc... no aguardo agradeço!!! |
|
|
|
Felipe
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 18/05/2007 16:56 hs
Ai cara... teu erro ta nu create table, ta sobrando um parenteses depois do autoincremento. Espero ter ajudado =) |
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/05/2007 11:42 hs
Set Cat = New adox.Catalog
Set Cat.ActiveConnection = minhaConexao Public tbl As adox.Table For Each tbl In Cat.Tables
'só mostra tabela de usuários
If tbl.Name = "minhatabela" Then Then MsgBox "A tabela já existe": exit for Next
|
|
|
|
