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

 > 

  • 问题

  • Question
    登录进行投票
    0
    登录进行投票

    有数据库如下：

    姓名 数学 语文 物理 
    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
    |

答案

  • Question
    登录进行投票
    0
    登录进行投票

    你好

    或者你可以嘗試使用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
    |
    版主