one:
on error goto xx
sql="create table users (id char(10),name char(20))"
conn.execute(sql)
exit function
xx:
on error goto xx
sql="create table users (id char(10),name char(20))"
conn.execute(sql)
exit function
xx:
解决方案 »
- 这样的查询怎么弄啊,谢谢大家
- 有人记得我么?进来打个招呼~~
- 请问报表高手,做报表用哪种控件比较好
- 关于Data Environment
- CrystalReport 问题,请进来看看.
- 我用VB编了个软件,支持插件开发
- 请教一个比较简单的response.wrie输出的格式问题,大家帮帮忙啊
- 各位高手,如何编写用户权限!急急!!!!!
- 我刚发的贴子就给冲掉了:http://www.csdn.net/Expert/topic/476/476088.shtm 请大家来帮忙,谢谢。
- vb能对内存进行分配吗?
- 关于autocad中的菜单定制
- (我没多少分了^_^)如何知道一个DLL有什么函数可以调用,怎样调用呢?
sql="create table users (id char(10),name char(20))"
conn.execute(sql)
exit function
xx:
sql="delete users"
conn.execute(sql)
sql="create table users (id char(10),name char(20))"
conn.execute(sql)
select * from msysobjects where type=1 and name='" & 你的表名 &"'"
来判断。
select * from msysobjects where type=1 and name='" & 你的表名 &"'"
来判断。
这个sql Script,你就知道怎么做了!
set adorec=adocon.execute("select * from msysobjects where type=1 and name='" & xxx &"'")
if adorec.eof and gadorec.bof then
'不存在
else
'存在。
endif
Public reco As New ADODB.Recordset
dim sql as string
set reco =conn.execute("select * from msysobjects where type=1 and name='" & 110 &"'")
if reco.eof and reco.bof then
'不存在
sql = "create Table 110 (id char(3),id1 char(5))"
conn.Execute (sql)'
else
'存在。
msgbox "已经存在!"
endif
Public Conn As New ADODB.ConnectionPrivate Sub Command1_Click()
Dim x As Database
Dim isFind As Boolean
Dim i As Integer
Dim sql As String
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=True"
Set x = OpenDatabase("C:\db1.mdb")
isFind = False
For i = 0 To x.TableDefs.Count - 1
If x.TableDefs(i).Name = "110" Then
isFind = True
End If
Next
If isFind = False Then
sql = "create Table 110 (id char(3),id1 char(5))"
Conn.Execute (sql) '
Else
MsgBox "已经存在!"
End If
x.Close
End Sub