没有写完吧
德钦网站建设公司成都创新互联,德钦网站设计制作，有大型网站制作公司丰富经验。已为德钦上1000+提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的德钦做网站的公司定做！
Try
sqlcom.ExecuteNonQuery()
Catch ae As SqlException
msgbox("fail")
End Try
首先在项目的VB.NET界面，使用菜单【项目】--【添加引用】--【COM】
选择 Microsoft ADO Ext. 2.x for DDL and Security
然后单击【确定】，完成引用。
完整代码如下：
Imports ADOX
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建空的access数据库文件--数据库文件.mdb，密码为123
Dim Mycat As Catalog = New Catalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")
'以下代码创建一个名为“实验数据表”
Dim MyTable As ADOX.Table = New ADOX.Table '定义新表
MyTable.Name = "实验数据表" '表命名
'给表“实验数据表” 创建一个字符串字段，字段名“姓名”
MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)
'给表“实验数据表” 创建一个整数字段，字段名“学号”
MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger) '追加一个数字型字段
'给字段“学号”创建一个主键“PimaryKey_Field”
MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")
Mycat.Tables.Append(MyTable) '把所有的新字段追加到表
MyTable = Nothing
Mycat = Nothing
End Sub
End Class
关于创建临时表问题，
需求是这样的
所有的用户都有可能用到查询条件设置
查询条件设置保存在某一个表中
例如 表A 如下
字段 比较符 值 连接符
姓名 = '张三 ' OR
姓名 = '李四 '
-----------------
表A作为用户的查询定义表
那么,当有很多用户需要 写条件时, 表A出现冲突,出错
------解决方案--------------------------------------------------------
既然是临时表,创建使用后应该删除,再次使用再创建就不会有冲突问题
------解决方案--------------------------------------------------------
思路有问题！
表A作为用户的查询定义表
------解决方案--------------------------------------------------------
既然是共享查询，应该不存在写数据问题。查询条件放临时表无必要。你可能使用ACCESS数据库。当有用户在使用临时表时，你无法修改或删除临时表。
------解决方案--------------------------------------------------------
一人一个,根据登陆名来确定所创建的临时表名字比如110登陆就操作 create table #user110
------解决方案--------------------------------------------------------
如果表A加入用户名的话
会不会不方便--当然不会了。