▓▓▓▓▓急急急.......为什么我用存储过程插入数据时,只能插入一个字符?▓▓▓▓▓▓ 无论是字符型还是数字型都一样. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 代码如下:存储过程:CREATE PROCEDURE mypff@job_id char,@job_lvl charASINSERT INTO employee (job_id,job_lvl) VALUES (@job_id,@job_lvl )GO在VB里运行:cnn1.Execute "mypff '" & Trim(Text1) & "', '" & Text2 & "'"插入数据但都是只能插入一位数 你定义的参数的长度有问题,如下:CREATE PROCEDURE mypff@job_id varchar(20),@job_lvl varchar(20)ASINSERT INTO employee (job_id,job_lvl) VALUES (@job_id,@job_lvl )GO If g_Qs Is Nothing Then sSql = "Insert Into SERVICELOG (PROBLEMID, MGRID, SERVICETIME, SERVICEDESC, CATEGORY) " & _ "Values (?, ?, ?, ?, ?) " Set g_Qs = g_Cn.CreateQuery("", sSql) End If g_Qs(0).Type = rdTypeVARCHAR g_Qs(1).Type = rdTypeVARCHAR g_Qs(2).Type = rdTypeVARCHAR g_Qs(3).Type = rdTypeVARCHAR g_Qs(4).Type = rdTypeVARCHAR g_Qs(0) = IIf(Me.txtProblemID.Text = "", " ", Me.txtProblemID.Text) g_Qs(1) = IIf(Me.txtMGRID.Text = "", " ", Me.txtMGRID.Text) g_Qs(2) = IIf(Me.txtADateTime.Text = "", " ", Me.txtADateTime.Text) g_Qs(3) = IIf(Me.txtServiceDesc.Text = "", " ", Me.txtServiceDesc.Text) g_Qs(4) = IIf(Me.cboCategory.Text = "", " ", Me.cboCategory.Text) g_Qs.Execute Set g_Qs = Nothing VB6居然提升了一名。。 在vb中如何读取word里的文字内容? 100分求一个调用dll的问题 vb6中data 控件的属性设置问题 动态设置Data Evironment中Command的查询属性 的问题 求修改MP3文件(ID3v)信息的代码??? 菜鸟的问题,大家来看看啊,打开调出写入后 如何关闭和保存 请问怎么在MDI窗口里打印出文字?就像LABEL控件一样,但是MDI窗口不能添加LABEL控件 Delphi函数定义转为VB 有没有比较两个字符串相等的函数? 为什么DataGrid控件无法显示数据?UP就有分 一条sql语句操作两个access数据库是怎么做到的?
@job_id char,
@job_lvl char
AS
INSERT INTO employee (job_id,job_lvl) VALUES (@job_id,@job_lvl )
GO在VB里运行:
cnn1.Execute "mypff '" & Trim(Text1) & "', '" & Text2 & "'"
插入数据但都是只能插入一位数
CREATE PROCEDURE mypff
@job_id varchar(20),
@job_lvl varchar(20)
AS
INSERT INTO employee (job_id,job_lvl) VALUES (@job_id,@job_lvl )
GO
sSql = "Insert Into SERVICELOG (PROBLEMID, MGRID, SERVICETIME, SERVICEDESC, CATEGORY) " & _
"Values (?, ?, ?, ?, ?) "
Set g_Qs = g_Cn.CreateQuery("", sSql)
End If
g_Qs(0).Type = rdTypeVARCHAR
g_Qs(1).Type = rdTypeVARCHAR
g_Qs(2).Type = rdTypeVARCHAR
g_Qs(3).Type = rdTypeVARCHAR
g_Qs(4).Type = rdTypeVARCHAR
g_Qs(0) = IIf(Me.txtProblemID.Text = "", " ", Me.txtProblemID.Text)
g_Qs(1) = IIf(Me.txtMGRID.Text = "", " ", Me.txtMGRID.Text)
g_Qs(2) = IIf(Me.txtADateTime.Text = "", " ", Me.txtADateTime.Text)
g_Qs(3) = IIf(Me.txtServiceDesc.Text = "", " ", Me.txtServiceDesc.Text)
g_Qs(4) = IIf(Me.cboCategory.Text = "", " ", Me.cboCategory.Text)
g_Qs.Execute
Set g_Qs = Nothing