编程论坛 → VB6论坛

求大家帮忙关于换行的问题

fuhui910 发布于 2013-03-20 14:49， 1308 次点击

Set adors = adocon.Execute("insert into 客户信息 values(" + Text1.Text + ",'" + Text2.Text + "','" + Text3.Text + "','" + Text4.Text + "','" +
Text5.Text + "','" + Text6.Text + "','" + Text7.Text + "','" + Text8.Text + "','" +
Text9.Text + "','" + Text10.Text + "','" + Text11.Text + "','" + Text12.Text + "','" +
Text13.Text + "','" + Text14.Text + "','" + Text15.Text + "','" + Text16.Text + "','" +
Text17.Text + "','" + Text18.Text + "','" + Text19.Text + "','" + Text20.Text + "','" +
Text21.Text + "','" + Text22.Text + "','" + Text23.Text + "','" + Text24.Text + "','" +
Text25.Text + "','" + Text26.Text + "','" + Text27.Text + "','" + Text28.Text + "','" +
Text29.Text + "','" + Text30.Text + "','" + Text31.Text + "','" + Text32.Text + "','" +
Text33.Text + "','" + Text34.Text + "','" + Text35.Text + "','" + Text36.Text + "','" +
Text37.Text + "','" + Text38.Text + "','" + Text39.Text + "','" + Text40.Text + "','" +
Text41.Text + "','" + Text42.Text + "','" + Text43.Text + "','" + Text44.Text + "','" +
Text45.Text + "','" + Text46.Text + "','" + Text47.Text + "','" + Text48.Text + "','" +
Text49.Text + "','" + Text50.Text + "','" + Text51.Text + "','" + Text52.Text + "','" +
Text53.Text + "','" + Text54.Text + "','" + Text55.Text + "','" + Text56.Text + "','" +
Text57.Text + "','" + Text58.Text + "','" + Text59.Text + "','" + Text60.Text + "','" +
Text61.Text + "','" + Text62.Text + "','" + Text63.Text + "','" + Text64.Text + "','" +
Text65.Text + "','" + Text66.Text + "','" + Text67.Text + "','" + Text68.Text + "','" +
Text69.Text + "','" + Text70.Text + "','" + Text71.Text + "','" + Text72.Text + "','" +
Text73.Text + "','" + Text74.Text + "','" + Text75.Text + "','" + Text76.Text + "','" +
Text77.Text + "','" + Text78.Text + "','" + Text79.Text + "','" + Text80.Text + "','" +
Text81.Text + "','" + Text82.Text + "')")
因为想做数据库的路人是access的因为每一个客户的数据项目都特别多导致一行写不下我该怎么办？

15 回复

#2

wp2319572013-03-20 15:02

好长的表达式啊有可能要超长吧

#3

fuhui9102013-03-20 15:05

就是太长了然后后面的就写不下了怎么办？有办法么？难道我要用循环变量么？

#4

fuhui9102013-03-20 15:09

我是实在不想多建数据库了感觉好迷糊有十年不用编程了最近找的工作领导让我弄我都快疯了

#5

wp2319572013-03-20 15:15

估计得换思路了即便你写下了 sql串也不能认

#6

fuhui9102013-03-20 15:21

我用的是access建的数据库

#7

wp2319572013-03-20 15:25

我查了一下貌似sql字串最长能支持8000个字节应该够用
那你就分开写吧
str1=。。。。。
str2=。。。。。
str3=.........
....
....
str总=str1+str2+str3+.........

#8

fuhui9102013-03-20 15:31

可是我用的access.accdb可以用sql语言么？需要做什么声明或者什么吗？

#9

风吹过b2013-03-20 16:29

ACCESS 可以使用 SQL 语言的命令，
Set adors = adocon.Execute("insert into
这就是在执行 SQL 命令的命令。

字符串连接，可以写成多个表达式，一段一段的连接，最后再连接起来就行了。
你插入时，可以先把所需要的数据全部连接到一个字符串中，然后再执行它。

#10

fuhui9102013-03-20 16:56

我是用vb编写一个可以录入 access数据库的软件
我现在想的办法是把表分开多建2个表分开操作就可以了吧？
但是我还有一个问题就是 ID的问题 access的ID是自动赋予的可是如果我用vb录入的话他的值还会自动赋予么还是需要我用vb调出上一行ID然后+1 还是怎么具体操作？

#11

bczgvip2013-03-20 18:20

多建几个表吧。

#12

Artless2013-03-20 19:24

以下是引用fuhui910在2013-3-20 16:56:33的发言：
ID的问题 access的ID是自动赋予的可是如果我用vb录入的话他的值还会自动赋予么还是需要我用vb调出上一行ID然后+1 还是怎么具体操作？

只读

#13

fuhui9102013-03-22 11:07

还么有人给出好的建议么

#14

fuhui9102013-03-22 11:09

还有第二篇刚看到谢谢了
不过现在的问题是我建了两个表但是写入表1的时候
Set adors = adocon.Execute("insert into 表1 values(" + Text1.Text + ",'" + Text2.Text + "','" + Text3.Text + "','" + Text4.Text + "',.......... ) ")
后面那个.....是省略的意思是跟前面没什么区别但是为什么会告诉我语法错误?

#15

yz10252013-03-22 13:39

VB接续符号有上限～

#16

风吹过b2013-03-22 16:07

VB6 ，每行的命令字符长度不得超过 255 个，包括用连字符连接起来的长度。
所以，长语句，要拆成短语句。
如果特长的字符串，都只能用资源文件或读文件生成。

1