[求助]SQL相关 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]SQL相关

共有2450人关注过本帖树形打印复制链接主题：[求助]SQL相关

5233655cs

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

[求助]SQL相关 发帖心情

Post By：2020/4/7 14:28:00 [只看该作者]

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Insert Into 订单 (客户, 日期, 订单编号) Values(?,?,?)"
cmd.Parameters.Add("@客户","01")
cmd.Parameters.Add("@日期",Date.Today)
cmd.Parameters.Add("@订单编号",100)
cmd.ExecuteNonQuery

大神，

1.如果我这里的订单是个变量dtname 那么这个语句怎么修改？因为我根据不同的用户，编写的表格也不同，所以用了个变量。

2.原先我向SQL插入图片使用的是 dr.SQLInsertfile语句。现在我用insert into的话，语句改成什么样呢？

[此贴子已经被作者于2020/4/7 14:36:24编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105958 积分：538865 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/7 15:43:00 [只看该作者]

1、

dim s as string = "订单"

cmd.CommandText = "Insert Into " & s & " (客户, 日期, 订单编号) Values(?,?,?)"

2、

Dim cmd As new SQLCommand

cmd.ConnectionName = "test"

cmd.CommandText = "Insert Into test (图片) Values(?)"

Dim ImageByte() As Byte = System.IO.File.ReadAllBytes("D:\test.JPG") '读取文件流,并将读到的二进制数据放入数组ImageByte中,

cmd.Parameters.Add("@图片", ImageByte)

cmd.ExecuteNonQuery

[此贴子已经被作者于2020/4/7 15:43:39编辑过]

5233655cs

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/7 16:08:00 [只看该作者]

为什么我下面的代码会出现“至少一个参数没有被指定值” 和对象名‘inst’无效。

Dim dr As DataRow

dr=DataTables("账户管理").DataRows(0)

Dim dtname As String

If dr("部门") = "Inst"

dtname = "Inst"

ElseIf dr("部门") = "HRADM"

dtname = "HRADM"

End If

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = "Insert Into " & dtname & "(序号,状态,提案时间,提案人,提案名称,改善前照片) values(?,?,?,?,?,?,?,?);SELECT SCOPE_IDENTITY()"

Dim id As Integer = cmd.ExecuteScalar()

cmd.parameters.add("@序号",id+1)

cmd.parameters.add("@状态","待审核")

cmd.parameters.add("@提案时间",Date.today)

cmd.parameters.add("@提案人",dr("用户姓名"))

cmd.parameters.add("@提案名称",e.Form.Controls("TextBox1").value)

cmd.parameters.add("@改善前照片",e.Form.Controls("Label10").text)

cmd.ExecuteNonQuery

[此贴子已经被作者于2020/4/7 16:12:42编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105958 积分：538865 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/7 16:17:00 [只看该作者]

1、数据库没有Inst这个表名

2、列名和问号？的个数必须一致

3、

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = “select max(序号) from ” & dtname &

Dim id As Integer = cmd.ExecuteScalar()

cmd.CommandText = "Insert Into " & dtname & "(序号,状态,提案时间,提案人,提案名称,改善前照片) values(?,?,?,?,?,?,?,?);SELECT SCOPE_IDENTITY()"

cmd.parameters.add("@序号",id+1)

cmd.parameters.add("@状态","待审核")

cmd.parameters.add("@提案时间",Date.today)

cmd.parameters.add("@提案人",dr("用户姓名"))

cmd.parameters.add("@提案名称",e.Form.Controls("TextBox1").value)

cmd.parameters.add("@改善前照片",e.Form.Controls("Label10").text)

cmd.ExecuteNonQuery

5233655cs

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/7 16:50:00 [只看该作者]

cmd.CommandText = “select max(序号) from ” & dtname &

大神

提示是错误代码?

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105958 积分：538865 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/7 16:59:00 [只看该作者]

cmd.CommandText = “select max(序号) from ” & dtname

5233655cs

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/8 9:00:00 [只看该作者]

老师，

cmd.CommandText = "select max(序号) from " & dtname

显示from附近有语法错误，( 附近有语法错误

5233655cs

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/8 9:15:00 [只看该作者]

我改成大写 Select Max 就好了。是这个原因？

5233655cs

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/8 9:21:00 [只看该作者]

Dim cmd As new SQLCommand

cmd.ConnectionName = "test"

cmd.CommandText = "Insert Into test (图片) Values(?)"

Dim ImageByte() As Byte = System.IO.File.ReadAllBytes("D:\test.JPG") '读取文件流,并将读到的二进制数据放入数组ImageByte中,

cmd.Parameters.Add("@图片", ImageByte)

cmd.ExecuteNonQuery

中的test是数据源？

cmd.CommandText = "Insert Into " & dtname & "(序号,状态,提案时间,提案人,提案名称,改善前照片) values(?,?,?,?,?,?,?,?);SELECT SCOPE_IDENTITY()"

这里dtname 是表名，

我想插入的照片与“序号，状态，提案时间，提案人，提案名称，”同一行中，怎么写？

我用 cmd.parameters.add("@提案名称",e.Form.Controls("TextBox1").value)

提示类型与image不匹配。

5233655cs

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/8 9:26:00 [只看该作者]

谢谢我弄好l !

下一主题 >> << 上一主题

总数 17 1 2 下一页

主题：[求助]SQL相关