如何在VB中用SQL语句动态的增加字段.

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是从窗体接收到数据后，才填加到对应的字段中，如果没有接收到某个字段信息的时候，就不添加相应的字段，

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

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

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

每个Text.Text两端都要有&,看看你的这个&Text2.text'","

因为你要获取的是Text2里的文字（而不是Text2.Text这几个字母）而对于单引号你是要直接写到你构造的字符串中的所以单引号要丐在双引号内而文本框的名称要写在外面然后用字符串连接符连接起来就行下面这个方法是书写里最少的方法insert

into

GYS("gys_id,name,phone)values('"

&

Text1.Text

&

"','"

&

Text2.Text

&

"','"

&

Text3.Text

&

"')"

)

我举一个例，假如要插入Text1.Tex和Text2.Text里面的内容就这样:"……values("

&

"'"

&

Text1.Text

&

"',"

&

"'"

&

Text2.Text

……很显然前面的values("

&

"'"

&可以写成values('"

&

而&

Text1.Text

&

"',"

&

"'"

&

Text2.Text

……可以写成&

Text1.Text

&

"','"

&

Text2.Text

……

明白了吧，呵呵

---