u can use the below coding
=========================================
Dim dbs As Database
Dim rsReel As New ADODB.Recordset
Dim sql, sql1 As String
Dim i, j As Integer
Dim TableAvilable As Boolean
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.ConnectionString = dbconn
cnn.Open
cmd.ActiveConnection = cnn
Set dbs = OpenDatabase(DBF_Path)
For i = 0 To dbs.TableDefs.Count - 1
If dbs.TableDefs(i).Name = "TmpGsm" Then
dbconn.Execute "Delete from TmpGsm"
TableAvilable = True
Exit For
Else
TableAvilable = False
End If
Next
dbs.Close
If TableAvilable = False Then
cmd.CommandText = "create table TmpGsm (frm_gsm1 number, to_gsm1 number,frm_gsm2 number, to_gsm2 number,frm_gsm3 number,to_gsm3 number,frm_gsm4 number,to_gsm4 number,above number)"
cmd.Execute
cnn.Close
End If
dbconn.Close
dbconn.Open
|