求救！！！

Question

在VB表中增加字段值是用ADDNEW语句，那么我想知道，增加字段名是用什么语句呢？其格式又是怎么样的呢？具体应该怎么应用，用的时候要注意那些问题？谢谢指教！

Answer 1

窗体代码
Dim rs As ADODB.Recordset
dim msgtext as string
Private Sub Command1_Click()
   dim strsql as string
   strsql ="select * from dw_table"
   set rs=executesql(strsql,msgtext)
   rs.addnew
      rs.fields("dw_mc")=text1.text
      ...........
   rs.update
   rs.close
   set rs=nothing
   msgbox "添加成功!",48,"信息"
End Sub
下面的代码放到类模块中,是一个数据库动态连接函数
Public Function ExecuteSQL(ByVal sql As String, MsgString As String) As ADODB.Recordset
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    'Dim SQL As String
    On Error GoTo ExecuteSQL_Error
    sTokens = Split(sql)
    Set cnn = New ADODB.Connection
    cnn.Open ConnectString
    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
       cnn.Execute sql
       MsgString = sTokens(0) & "query successful"
    Else
       Set rst = New ADODB.Recordset
       rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
      
       
       Set ExecuteSQL = rst
        
       MsgString = "查询到" & rst.RecordCount & "条纪录"
    End If
ExecuteSQL_Exit:
    Set rst = Nothing
    Exit Function
    Set cnn = Nothing
ExecuteSQL_Error:
    MsgString = "查询错误:" & Err.Description
    Resume ExecuteSQL_Exit
End FunctionPublic Function ConnectString() As String
    ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
End Function

Answer 2

yes,是在表里增加一个列，而不是一个行，也就是说是增加字段名而不是字段值。

Answer 3

2楼的是查询代码吧。你的数据库是SQL还是access一定要在程序中间加入吗？而不是手工在数据库加入吗

Answer 4

我的数据库是access
一定要在程序中间加入,不是手工在数据库加入.
谢谢指教！

Answer 5

cn.Execute ("alter table 表 add 列名  char(10)")

Answer 6

用代码添加列到表中
------------
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection
    '有密码的连接方式
    'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"
    '无密码的连接方式
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;Persist Security Info=False"
    cn.Open
    cn.Execute ("alter table table1 add newCol  char(10)")'往表（table1）中增加一列(newCol)
    Exit Sub
err:
    MsgBox err.Description
End Sub