VB数据库添加字段

Private Sub Command1_Click()

Dim TabExit As Boolean

TabExit = False

Dim cn As New ADODB.Connection

cn.CursorLocation = adUseClient

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\db1.mdbMode=ReadWritePersist Security Info=FalseJet OLEDB:Database Password=123456"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 生产厂家 CHAR(20)"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 生产日期 DATETIME"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 库存上限 Single"

cn.Execute "ALTER TABLE 库存表 ADD COLUMN ID COUNTER"

cn.Close

Set cn = Nothing

End Sub

sql = "Insert Into 表名("

If Text1.Text <>"" Then sql = sql &"字段1,"

If Text2.Text <>"" Then sql = sql &"字段2,"

If Text3.Text <>"" Then sql = sql &"字段3)"

sql = sql &") Values("

If Text1.Text <>"" Then sql = sql &Text1.Text

If Text2.Text <>"" Then sql = sql &Text2.Text

If Text3.Text <>"" Then sql = sql &Text3.Text

sql = sql &")"

这里，要求字段3为必填，例如使用时间

text是从窗体接收到数据后，才填加到对应的字段中，如果没有接收到某个字段信息的时候，就不添加相应的字段，

另：这是一条插入语句，但是，他也代表更新，删除的语句，其形式都是一样的，

不知道你希望得到那种语句的信息

---