vb.net 中寫sql語句碰到的問題

你 GROUP BY 會員卡號前沒有空格

目前成都創(chuàng)新互聯(lián)公司已為近1000家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬空間、網(wǎng)站改版維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、安陽縣網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

"select count(*) from (select count(會員卡號) from HYDJ where 登記時(shí)間 between '" + DateTimePicker1.Value.Date + "' and '" + DateTimePicker2.Value + "' GROUP BY 會員卡號)"

或

"select count(*) from (select count(會員卡號) from HYDJ where 登記時(shí)間 between '" + DateTimePicker1.Value.Date + "' and '" + DateTimePicker2.Value + "'+ Space(1) + GROUP BY 會員卡號)"

vb.net 連接sql數(shù)據(jù)庫模塊,如何使用？

比如有個(gè)asp.net(vb.net)連接sql server 2000數(shù)據(jù)庫的連接模塊(module)：

Module MdlCommon

Public txtSQL As String '存放SQL語句

Public DBSet As DataSet '查詢得到的記錄集

Public ErrorMsg As String '存放錯(cuò)誤信息

Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet

Dim cnn As SqlClient.SqlConnection

Dim cmd As New SqlClient.SqlCommand()

Dim adpt As SqlClient.SqlDataAdapter

Dim rst As New DataSet()

Dim SplitSQL() As String

errMsg = ""

Try

SplitSQL = Split(strSQL)

cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")

If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Then

cmd.Connection = cnn

cmd.Connection.Open()

cmd.CommandText = strSQL

cmd.ExecuteNonQuery()

Else

adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)

adpt.Fill(rst)

ExecuteSQL = rst

End If

Catch ex As Exception

errMsg = ex.Message

Finally

rst = Nothing

cnn = Nothing

End Try

End Function End Module

調(diào)用時(shí)在asp.net后臺寫上txtSQL="SELECT * FROM user";

DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查詢db返回結(jié)果了。

怎么用VB.NET向SQL新添加一列？求代碼

cjsaohan的回答正確

用SQL句Alter table Add ColumnName varchar(50)即可。

我只是指出一點(diǎn)，你的做法不對。一般情況，客戶端不去改變數(shù)據(jù)的結(jié)構(gòu)，客戶端做的，只是增加或刪除數(shù)據(jù)記錄。這樣對后期的維護(hù)來說會方便一些。

有一些客戶端比如一些軟件工廠類軟件，會用客戶端去建表并做一些數(shù)據(jù)字段還有其它的一些關(guān)聯(lián)，但小軟件，我真的不建議你這樣做。學(xué)習(xí)除外。