在VB中如何向SQL-Server数据库表单插入数据

SQL插入语句如下：
insert into firm (vNumber,vClient,vLaw,cLineman,vAddress,cLinePhone,cInstallPhone)
VALUES('?','?','?','?','?','?','?')VB语句该如何写？
条件：从TEXT1--TEXT7中读出数据，传给要插入的数据项（即SQL语句中的问号）。
VB中的SQL语句该如何写？

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

假设你的连接叫adoconn，sqlstr＝"insert into firm (vNumber,vClient,vLaw,cLineman,vAddress,cLinePhone,cInstallPhone)
VALUES('"+trim$(text1.text)+"','"+trim$(text2.text)+"','"+trim$(text3.text)+"','"+trim$(text4.text)+"','"+trim$(text5.text)+"','"+trim$(text6.text)+"','"+trim$(text7.text)+"')"adoconn.Execute  sqlstr
给你个例子:)info.asp文件如下：<%@LANGUAGE=VBScript%>
<HTML><BODY>
<%set dblink=server.createobject("adodb.connection")
dblink.open"provider=sqloledb.1;server=localhost;initial catalog=userReturn","sa"
set rs=server.createobject("adodb.recordset")
rs.locktype=2
rs.cursortype=3
rs.open "SELECT username,context FROM returntable",dblinkIf ((Request.Form("UsersName")<>"") and (Request.Form("yijian")<>"")) Then rs.addnew
rs("username")= Request.Form("UsersName")
rs("context")=Request.Form("yijian")
rs.UpdateElse
Response.Write"<BR>您没输姓名或建议！"
End Ifrs.close
dblink.close
set rs=nothing
%>
</BODY></HTML>
index.html文件如下：
<%
set dblink=server.createobject("adodb.connection")
dblink.open"provider=sqloledb.1;server=localhost;initial catalog=userReturn","sa"
set rs=server.createobject("adodb.recordset")
rs.open "SELECT * FROM returntable",dblink
%><H2 align="center">填写的意见：</H2>
<table border="1" align="center">
<tr>
<td class=bluetitle><b>姓名</b></td>
<td class=bluetitle><b>意见</b></td>
<td class=bluetitle><b>发表时间</b></td>
</tr>
<%while not rs.eof%>
<tr>
<td class=blue><%=rs.fields("username")%></td>
<td class=blue><%=rs.fields("context")%></td>
<td class=blue><%=rs.fields("lastdate")%></td>
</tr>

<%
rs.movenext
wend
rs.close
dblink.close
%>
</TABLE>
<H2 align="center">新意见：</H2>
<FORM METHOD="POST" ACTION="userinfo.asp">
<TABLE ALIGN="CENTER">
<TR><TD ALIGN="CENTER" WIDTH="10%"><B>姓名</B></TD>
<TD WIDTH="90%">
<INPUT NAME="UsersName" MAXLENGTH=20></TD></TR>
<TR><TD ALIGN="CENTER"><B>意见</B></TD>
<TD><TEXTAREA COLS=50 ROWS=4 NAME="yijian">
</TEXTAREA></TD></TR>
<TR><TD COLSPAN=2 ALIGN="CENTER">
<INPUT TYPE="submit" NAME="sbmit" VALUE="发表">
</TD></TR>
</TABLE>
</FORM>
</FONT></BODY>
</HTML>
sql文件为：建库文件为：USE master
GODROP DATABASE userReturnCREATE DATABASE userReturn
ON
(
NAME='userReturn_mdf',
FILENAME='D:\userReturn_mdf',
SIZE=10MB,
MAXSIZE=50MB,
FILEGROWTH=1MB
)LOG ON
(
NAME='userReturn_ldf',
FILENAME='D:\userReturn_ldf',
SIZE=5MB,
MAXSIZE=25MB,
FILEGROWTH=1MB
)
GO建表文件为：USE userReturn
GO
DROP TABLE returntable
GO
CREATE TABLE returntable
(
username char(100),
context text,
lastdate datetime Default(getDate())
)
GO
INSERT INTO returntable(username,context) VALUES('凯萨','做得不错嘛！')
INSERT INTO returntable(username,context) VALUES('老和尚','真的非常好，这就是我需要的！！！')
GODROP PROC I_Insertvalue
GO
CREATE PROC I_Insertvalue
@uname char(100),@ctext text
AS
INSERT INTO returntable(username,context) VALUES(@uname,@ctext)
GO
这位楼上老兄弟用的是ASP的VBSCRIT，但是语法都是一样的，你放心用，
Private Sub Command3_Click()strsql = "insert into firm(vNumber,vClient,vLaw,cLineman,vAddress,cLinePhone,cInstallPhone) values('" + Trim$(Text1.Text) + "','" + Trim$(Text2.Text) + "','" + Trim$(Text3.Text) + "','" + Trim$(Text4.Text) + "','" + Trim$(Text5.Text) + "','" + Trim$(Text6.Text) + "','" + Trim$(Text7.Text) + "')"datPrimaryRS.RecordSource = strsqldatPrimaryRS.RefreshEnd Sub以上是我的按钮事件，执行到datPrimaryRS.Refresh时，发出错误警告如下：
(Data error event hit err:对象关闭时，操作不允许)高手帮忙看看错误该怎样改正。
连接的定义由你所用的数据库不同而不同，一个access数据库连接的例子如下：Dim Strrs As String
Dim Adors As ADODB.Recordset
Dim Adoconn As ADODB.Connection
strconn= "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\mdb\ClientData.mdb;Persist Security Info=False"
Strrs = "select * from clientinfo"
Set Adoconn = New ADODB.Connection
With Adoconn
    If .State = adStateOpen Then
     .Close
     End If
   .CursorLocation = adUseClient
   .ConnectionString = strconn
   .Open
End With
SQL语句没有错误，虽然执行到datPrimaryRS.Refresh时发出警告信息，但插入数据到数据库一样能够完成。请高手帮忙指正。
insert (字段名，。） vlaues (值1,....) from 表名
Public Function Operator_Complete(ByVal str_supplierid As String, Optional ByVal str_CompanyName, _
                                    Optional ByVal str_ContactName As String, Optional ByVal str_SupplierPhone As String, _
                                    Optional ByVal str_SupplierAddress As String, Optional ByVal str_SupplierZIP As String, _
                                     Optional ByVal str_SupplierFax As String, Optional ByVal str_HomePage As String, _
                                     Optional ByVal str_SupplierMemo As String)
    Select Case operator
        Case 1
            cmd.CommandText = "inster into [t_ Supplier] (SupplierID,CompanyName,ContactName,SupplierAddress,SupplierZIP,SupplierPhone,SupplierFax,HomePage,SupplierMemo) values (?,?,?,?,?,?,?,?,?)"
           '定义参数为输入参数并定义类型
            Ptype
            cmd.Parameters(0).Value = str_supplierid
            cmd.Parameters(1).Value = str_CompanyName
            cmd.Parameters(2).Value = str_ContactName
            cmd.Parameters(3).Value = str_SupplierAddress
            cmd.Parameters(4).Value = str_SupplierZIP
            cmd.Parameters(5).Value = str_SupplierPhone
            cmd.Parameters(6).Value = str_SupplierFax
            cmd.Parameters(7).Value = str_HomePage
            cmd.Parameters(8).Value = str_SupplierMemo
            '判断参数的值是否是空如果是空值将赋值NULL
            PValid
            cmd.Execute
'*** 设置存储过程中参数样式 ***
Private Sub Ptype()
    For i = 0 To 8
        cmd.Parameters(i).Direction = adParamInput
        cmd.Parameters(i).Type = adVarChar
        'If i = 0 Then cmd.Parameters(0).Type = adChar
    Next i
End Sub'*** 检测参数值是否为0,如果为0将付NULL值班 ***
Private Sub PValid()
    For i = 0 To 8
         If cmd.Parameters(i).Value = "" Then cmd.Parameters(0).Value = Null
    Next i
End Sub
Private Sub Command3_Click()strsql = "insert into firm(vNumber,vClient,vLaw,cLineman,vAddress,cLinePhone,cInstallPhone) values('" + Trim$(Text1.Text) + "','" + Trim$(Text2.Text) + "','" + Trim$(Text3.Text) + "','" + Trim$(Text4.Text) + "','" + Trim$(Text5.Text) + "','" + Trim$(Text6.Text) + "','" + Trim$(Text7.Text) + "')"datPrimaryRS.RecordSource = strsqldatPrimaryRS.RefreshEnd Sub以上是我的按钮事件，执行到datPrimaryRS.Refresh时，发出错误警告如下：
(Data error event hit err:对象关闭时，操作不允许)高手帮忙看看错误该怎样改正。