十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
首先打开数据源,然后使用alter table语句即可,具体范例如下:
创新互联主要从事成都网站设计、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务定陶,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220
Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconstr = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" 数据库路径及文件名 ""cn.Open constrDim str As Stringstr = "alter table 表名 add 字段 类型"rs.Open str, cn, adOpenStaticmsgbox"添加字段成功",vbokonly
添加项: ComboBox1.Items.Add("123")
直接赋值: ComboBox1.Text = "123"
======================
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 1 To 10
ComboBox1.Items.Add("添加项:" i)
ComboBox2.Items.Add("添加项:" i)
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.SelectedIndex = ComboBox1.SelectedIndex
End Sub
被变量赋值不会引发一个事件的。
你可以在紧跟给变量的赋值语句后面,用IF语句进行判断的啊?
比如:
MyValue = Val(InputBox("输入一个值:"))
if MyValue =0 then
Msgbox("你输入的是0")
......
End If