VB+SQL问题

Question

请教大家一个很基础的问题,如何将VB中textbox中的信息插入到SQL中..

Answer 1

insert into table values("&textbox&")

Answer 2

不是吧~你首先要用vb自带的ado连接上数据库，然后用insert 表名（列名） values(textbox中的信息)

Answer 3

给个例子你参考一下: Sub Main() 
On Error GoTo On_error 
'frmWelcome.Show 
Set con = New ADODB.Connection 
con.ConnectionString = ("Provider=SQLOLEDB;User ID=sa;PWD=;Initial Catalog=human;Data Source=.") 
con.Open 
con.CommandTimeout = 20 
Load frmLogin 
frmLogin.Show vbModal 
Exit Sub 
On_error: 
If Err.Number = -2147467259 Or Err.Number = -2147217900 Then 
Unload frmWelcome 
MsgBox "检查到 SQL Server 未安装或软件所需数据库未安装..." & vbCrLf & "正在进一步检查 SQL Server 的安装情况,若已启动则开始安装数据库... ", vbInformation + vbOKOnly, "系统提示" 
Shell (App.Path & "\Installdb.exe") 
End 
Else 
MsgBox Err.Number & Err.Description, vbInformation + vbOKOnly, "系统提示" 
End 
End If 
End Sub

Answer 4

dim con as new adodb.connection
dim sql as string con.connectionstring="provider=sqloledb;sqlserver=服务名;uid=用户名;pwd=密码;database=数据库名;"
con.open sql="insert [Table](a)values('" & trim(textbox.text) &"')"
con.execute Sql