VB怎样来实现为指定的ACCESS表增加字段及该字段的数据类型?

解决方案 »

  1.   

    Alter TABLE 表名 add 字段名 类型(长度)
      

  2.   

    dim localcon1 as adodb.connection  
    Set localcon1 = New ADODB.Connection  localcon1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\localdb.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=" & mdbtmp
      localcon1.Execute ("alter table sysapp add proxytype int null,proxyserver varchar(50) null,proxyport int null,proxyname varchar(20) null,proxypwd varchar(20) null," & _
      "smtpip varchar(20) null,smtpport int null,pop3ip varchar(20) null,pop3port int null,emailip varchar(50) null,emailport int null") '增加字段