在SQL Server中怎么寫入數(shù)據(jù)庫記錄？

Private Sub 入庫_click()

作為一家“創(chuàng)意+整合+營銷”的成都網(wǎng)站建設機構(gòu)，我們在業(yè)內(nèi)良好的客戶口碑。創(chuàng)新互聯(lián)提供從前期的網(wǎng)站品牌分析策劃、網(wǎng)站設計、網(wǎng)站建設、做網(wǎng)站、創(chuàng)意表現(xiàn)、網(wǎng)頁制作、系統(tǒng)開發(fā)以及后續(xù)網(wǎng)站營銷運營等一系列服務，幫助企業(yè)打造創(chuàng)新的互聯(lián)網(wǎng)品牌經(jīng)營模式與有效的網(wǎng)絡營銷方法,創(chuàng)造更大的價值。

'默認你的后面的textbox的名稱就是前面的名稱

'這里的數(shù)據(jù)類型可能要轉(zhuǎn)換，比如價格可能要轉(zhuǎn)換成double（CDbl()），購買日期轉(zhuǎn)行成日期時間型（CDate()）

'假設你的數(shù)據(jù)表是aa，字段名和界面顯示是一樣的

Dim Rs As ADODB.Recordset

'在插入前建議你在aa表里查查這條記錄是否已經(jīng)存在，如果已經(jīng)存在則給出提示（查詢條件看你怎么設置的主鍵了）

Rs = objADO.GetRs("insert into aa (書名,定價,作者,圖書類別,出版社,介質(zhì),購買日期,內(nèi)容簡介) values (" 書名.Text "," vbCrLf _

"定價.text ", " 作者.text ", " 圖書類別.text ", " 出版社.text ", " 介質(zhì).text ", " 購買日期.text ", " 內(nèi)容簡介.text ")

'這里如果表aa的字段多于界面顯示的也沒關(guān)系，只會給你aa后面括號里的字段賦值，這里后面values的順序必須和前面的對應

'正確插入后建議給個提示，同時看看有沒有必要把界面的所有值清空（圖書類別.text = ""）

'這里的objADO建議這么定義Public objADO As SqlServer，有別的查詢也可以直接用，你自己怎么定義的就換成你自己的

'GetRs的定義在下面，你也可能是dim strsql as string，然后strsql = （上面的插入語句），然后用下面Rs.Open strSql, Conn, adOpenStatic, adLockReadOnly的方法，都行的，就看你自己怎么寫的了

End Sub

Public Function GetRs(ByVal strSql As String) As ADODB.Recordset '通過執(zhí)行SQL語句返回記錄集

Dim Rs As ADODB.Recordset

On Error GoTo Err0

If Not OpenDB Then

Exit Function

End If

Set Rs = New ADODB.Recordset

Rs.CursorLocation = adUseClient '使用本地（客戶端）游標，這樣Rs.RecordCount屬性才能正確返回記錄集行數(shù)

DoEvents

Rs.Open strSql, Conn, adOpenStatic, adLockReadOnly

Set GetRs = Rs

Exit Function

Err0:

If InStr(1, Err.Description, "通訊鏈接失敗") 0 Then

Set Conn = New ADODB.Connection

LocalStat = "斷開" '設置本地數(shù)據(jù)庫連接狀態(tài)

End If

MsgBox Err.Description

End Function

SQLSERVER一個字段只可以寫兩個值怎么寫約束

ALTER TABLE 表的名稱 ADD CONSTRAINT 約束的名稱 CHECK (sex in ('男','女'))

sqlserver表插入數(shù)據(jù):要向A表中插入數(shù)據(jù)，其中一部分列的數(shù)據(jù)是來自B表另一部分列是固定值,應該怎么寫?

你那樣寫肯定是插入兩條記錄，按下面這樣寫：

insert into table1(point1,point2,p1x,p1y,p2x,p2y,score)

select t1.point, t2.point, t1.px, t1.py, t2.px, t2.py, '固定值' from table2 t1, table2 t2

where t1.point='A1' and t2.point='C1';