AddNew 方法范例 该范例使用 AddNew 方法创建具有指定名称的新记录。Public Sub AddNewX() Dim cnn1 As ADODB.Connection Dim rstEmployees As ADODB.Recordset Dim strCnn As String Dim strID As String Dim strFirstName As String Dim strLastName As String Dim booRecordAdded As Boolean ' 打开连接。 Set cnn1 = New ADODB.Connection strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;" cnn1.Open strCnn
' 打开雇员表。 Set rstEmployees = New ADODB.Recordset rstEmployees.CursorType = adOpenKeyset rstEmployees.LockType = adLockOptimistic rstEmployees.Open "employee", cnn1, , , adCmdTable ' 从用户获取数据,雇员 ID 的格式必须为: ' 名、中间名和姓的三个首字母, ' 五位数字,以及性别标识 M 或 F。 ' 例如,Bill Sornsin 的雇员 ID 为:B-S55555M。 strID = Trim(InputBox("Enter employee ID:")) strFirstName = Trim(InputBox("Enter first name:")) strLastName = Trim(InputBox("Enter last name:")) ' P只在用户输入姓和名之后进行。 If (strID <> "") And (strFirstName <> "") _ And (strLastName <> "") Then rstEmployees.AddNew rstEmployees!emp_id = strID rstEmployees!fname = strFirstName rstEmployees!lname = strLastName rstEmployees.Update booRecordAdded = True ' 显示新添加的数据。 MsgBox "New record: " & rstEmployees!emp_id & " " & _ rstEmployees!fname & " " & rstEmployees!lname Else MsgBox "Please enter an employee ID, " & _ "first name, and last name." End If
' 删除新记录,因为这只是演示。 cnn1.Execute "DELETE FROM employee WHERE emp_id = '" & strID & "'"
或者建表时
CREATE TABLE table (id, CLOB);
我现在有一张表,里面有个clob字段。
需要用vb写一段程序,把一个已知的字符串作为这个clob字段进行保存。
因为没怎么写过vb的程序,现在查资料都是vb.net的东西,所以请大家指教一下
该范例使用 AddNew 方法创建具有指定名称的新记录。Public Sub AddNewX() Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim strID As String
Dim strFirstName As String
Dim strLastName As String
Dim booRecordAdded As Boolean ' 打开连接。
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;"
cnn1.Open strCnn
' 打开雇员表。
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "employee", cnn1, , , adCmdTable ' 从用户获取数据,雇员 ID 的格式必须为:
' 名、中间名和姓的三个首字母,
' 五位数字,以及性别标识 M 或 F。
' 例如,Bill Sornsin 的雇员 ID 为:B-S55555M。
strID = Trim(InputBox("Enter employee ID:"))
strFirstName = Trim(InputBox("Enter first name:"))
strLastName = Trim(InputBox("Enter last name:")) ' P只在用户输入姓和名之后进行。
If (strID <> "") And (strFirstName <> "") _
And (strLastName <> "") Then rstEmployees.AddNew
rstEmployees!emp_id = strID
rstEmployees!fname = strFirstName
rstEmployees!lname = strLastName
rstEmployees.Update
booRecordAdded = True ' 显示新添加的数据。
MsgBox "New record: " & rstEmployees!emp_id & " " & _
rstEmployees!fname & " " & rstEmployees!lname Else
MsgBox "Please enter an employee ID, " & _
"first name, and last name."
End If
' 删除新记录,因为这只是演示。
cnn1.Execute "DELETE FROM employee WHERE emp_id = '" & strID & "'"
rstEmployees.Close
cnn1.CloseEnd Sub
他的字段类型是clob,不是字段名clob