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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]SQL相关  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148410)

--  作者：5233655cs
--  发布时间：2020/4/7 14:28:00
--  [求助]SQL相关
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编辑过]

--  作者：有点蓝
--  发布时间：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
--  发布时间：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编辑过]

--  作者：有点蓝
--  发布时间：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
--  发布时间：2020/4/7 16:50:00
--
cmd.CommandText = “select max(序号) from ” & dtname &

大神

提示是错误代码?

--  作者：有点蓝
--  发布时间：2020/4/7 16:59:00
--

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

--  作者：5233655cs
--  发布时间：2020/4/8 9:00:00
--
老师，

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

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

--  作者：5233655cs
--  发布时间：2020/4/8 9:15:00
--
我改成大写 Select Max 就好了。是这个原因？

--  作者：5233655cs
--  发布时间：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
--  发布时间：2020/4/8 9:26:00
--
谢谢我弄好l !