none
添加函数至数据库新增列 RRS feed

  • 问题

  • 有数据库如下:

    姓名 数学 语文 物理 
    BBB1 97 77 74 
    BBB2 65 76 87 
    BBB3 89 93 93 
    BBB4 83 79 74 
    BBB5 93 84 35 
    BBB6 75 56 75 
    BBB7 65 54 78 

    我想后面添加一列:

    为int myfunc()

    {int i=0;

    if 语文>80

    i++;

    if 数学>80

    i++;

    if 物理>80

    i++;

    return i;

    }


    vb 用 str1Sql = "ALTER TABLE person ADD COLUMN 7_m SINGLE" 添加列成功,可是怎么把数据放里面去不知道
    2011年9月10日 10:52

答案

  • 你好

    或者你可以嘗試使用INSERT STATEMENT

    E.G.

    str2Sql  = "INSERT INTO person (姓名, 数学, 语文, 物理 ) VALUES ('" &  姓名變數 &"'," & 数学變數  & "," & 语文變數 & "," 物理變數  &")"

    'SQL 用來把這圖片加進 database 上
    Dim sql As String = "INSERT INTO persion(姓名, 数学, 语文, 物理) values (@姓名變數, @数学變數, @语文變數, @物理變數)"
    Dim objConn As New SQLConnection
    Dim objComm As New SQLCommand
    '設定這個SQL Connection 的SQL Connection string
    objConn.ConnectionString = ConStr 'ConStr是 SQL Connection的字串
     
    Try
     
    '設定這個SQL Command 的SQL 查詢句子
    objComm.CommandText = sql
    '設定這個SQL Command的 Connection
    objComm.Connection = objConn
    'Assign SQL Variable 的內容
    objComm.Parameters.AddWithValue("@姓名變數", 姓名變數)
    objComm.Parameters.AddWithValue("@数学變數", 数学變數)
    objComm.Parameters.AddWithValue("@语文變數", 语文變數)
    objComm.Parameters.AddWithValue("@物理變數", 物理變數)
    '打開SQL Connection
    objConn.Open()
    '執行這個SQL 指令
    objComm.ExecuteNonQuery()
    '完成後出現一個Pop Up Message 出
    MsgBox("OK")
     
    Catch ex As Exception
    '當有錯誤發生時出現一個 Pop Up Message 說明錯誤
    MsgBox(ex.Message)
    Finally
     
    objComm = Nothing
    '關閉SQL Connection
    objConn.Close()
    objConn = Nothing
     
    End 


    試試能不能把數據加進Database

    E.G.


    Please correct me if my concept is wrong


    Chi
    2011年9月10日 11:40
    版主