alter table t_g add column " & Text1.Text & " integer default = 0
解决方案 »
- 史上最难问题vb+SqlServer+datagrid/MSHFlexGrid
- vb sock如何发送数据包
- 150分求“vb编程资源大全”的光盘
- 实时错误'-2147467259(80004005)',这是什么意思啊.
- 论友们!大家好!有谁知道如何在VB中访问USB口,从而读取有USB口传入信息?用什么控件?谢谢了!拜托了!
- 怎样把他叫到后台执行?!
- vb6打包安装问题,很头疼!
- 如何使已被限制多次运行的程序能够多次运行?
- 函数问题
- 请问一个 vb 程序 延迟 的 问题 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·
- 请问怎么得到系统自带dll的声明和具体用法!
- 帮我看看这个filter条件
cmd.CommandType = adCmdText
cmd.CommandText = "alter table users add my_col INTEGER NOT NULL Default=0"
cmd.Execute
Passed!
Vb6.0(sp5)
access 2000
jet 4.0
Ado 2.1
Vb6.0
access 97
jet 4.0
Ado 2.1
原文如下:Dim dbs As Database
Set dbs = OpenDatabase("d:/mywork/db_stu", False, False, ";pwd =1")
If Option1.Value = True Then
dbs.Execute ("alter table t_g add column " & Text1.Text & " integer default=0")
ElseIf Option2.Value = True Then
dbs.Execute ("alter table t_g drop column " & Text1.Text)
End If
dbs.Close