邮编区号查询VB源代码_百度知道
邮编区号查询VB源代码
视图为 省份要全的
我有更好的答案
其他类似问题
为您推荐：
您可能关注的推广回答者：
区号查询的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求高手解答：VB中向数据库中插入一条新记录，急啊！！_百度知道
求高手解答：VB中向数据库中插入一条新记录，急啊！！
这是我的代码：
If Text2.Text = Text3.Text Then
strsql = &insert into yonghu values('& & Text1.Text & &' & '& & Text3.Text & &')&
c.Execute (sql)
MsgBox &系统用户设置成功，欢迎使用！&, vbInformation, &系统提示&
Text1.Text = &&
Text2.Text = &&
Text3.Text = &&
Text1.SetFocus
r.Close穿鼎扁刮壮钙憋水铂惊
Set r = Nothing
MsgBox &您两次输入的密码不符，请重新输入！&, vbCritical, &系统提示&
Text2.Text = &&
Text3.Text = &&
Text2.SetFocus
End IfEnd Sub运行后显示“系统用户设置成功，欢迎使用！”了，但是在数据库中却没有，这是怎么回事？前面已经定义了c、r：
Dim c As New ADODB.Connection
Dim r As New ADODB.Recordset
提问者采纳
你的 SQL语句保存在 strsql 变量里，但执行的却是 sql 变量……你没开强制变量声明吧？
我改了，c.Execute (strsql)，然后出现了“列名或所提供值与表定义不匹配”，表中数据类型都是varchar。强制声明哪个变量？
提问者评价
谢谢啦，解决了。 values('& & Text1.Text & &' , '& & Text3.Text & &')&，这里不能用“&”。真谢谢啦！
来自团队：
其他类似问题
为您推荐：
您可能关注的推广回答者：回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁急急急啊！！！VB中 提示 对象未设置或对象变量未设置_百度知道
急急急啊！！！VB中 提示 对象未设置或对象变量未设置
select * from 风机检测数据&quot.mdb&c:\风机.OpenRecordset(&)Set rs = Db;)Set MSFlexGrid1.DataSource = rsMSFlexGrid1Private Sub Command2_Click()Set Db = OpenDatabase(&quot
提问者采纳
你写对了没.0.J & AccessPath & &quot.OLEDB;Persist Security Info=F&Data Source= '&Provider=M。比较下控件名字.4;&#39连接MDB文件的语句为ConnectionString = &quot
我用的是DAO
要用纯代码完成关联，写入数据库信息的 上面的我下一步要用MSflex 实现SQL语句的结果 才这样写的 就是想用MS连接数据库 在不用ADODC和DATA情况下
OpenDatabase(&c:\风机.mdb&)OpenDatabase这个方法好像不止一个参数吧。你出错是在哪行代码上出错了。
就是在 =rs 那行 是不是
MS 不能不通过控件连数据库？？不会吧。。。
这一行想不到能出什么错。我解决不了了怀疑下MSFlexGrid1这个名字对不对。存不存在
MSFlexGrid1 肯定有啊 这个控件我添加了 难道还要添加别的控件。？
其他类似问题
为您推荐：
其他2条回答
同时也检查了是MSFlexGrid1的问题还是rs的问题，然后把结果上传上来建议在Set MSFlexGrid1：msgbox rs.recordcount检查一下rs有无数据.DataSource = rs 之前加上一句
在VB菜单“工具-应用”中添加DAO的应用即可
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请VB高手帮忙编写一个邮编查询系统的程序。文件邮发，回答留下QQ号。谢谢了。紧急。拜托各位了 3Q_百度知道
请VB高手帮忙编写一个邮编查询系统的程序。文件邮发，回答留下QQ号。谢谢了。紧急。拜托各位了 3Q
提问者采纳
这非常的简单，只要有一点数据库知识就可以了，首先你建立一个数据库，把所有邮政编码写入数据库中就可以编写了，代码网上一大堆，用vb供姬垛肯艹厩讹询番墨 access 搜索满意请采纳
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁如图关于计算机VB数组与元素插入的～很急啊.....在线等大神帮忙！非常感谢！_百度知道
如图关于计算机VB数组与元素插入的～很急啊.....在线等大神帮忙！非常感谢！
jpg" />&nbsp.hiphotos.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http./zhidao/wh%3D600%2C800/sign=db30f2435cfe405f8a5fd7b/574edec19d96b9cebf6c://f.jpg" esrc="http&nbsp:///zhidao/wh%3D450%2C600/sign=e1dc3affd01b0ef46cbd905ae8f47dec/77c6a7efce1b9d16b8e4e8b0f1deb48f8c54643b.baidu.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="<a href="http.hiphotos://f://f://f.baidu.jpg" esrc="/zhidao/pic//zhidao/pic/item/77c6a7efce1b9d16b8e4e8b0f1deb48f8c54643b.baidu./zhidao/wh%3D600%2C800/sign=b91dd5a4d488d43ff0fc99f44d2efe23/77c6a7efce1b9d16b8e4e8b0f1deb48f8c54643b;<a href="/zhidao/wh%3D450%2C600/sign=842c8f74d343ad4ba67b4ec4bedec19d96b9cebf6c://f
提问者采纳
Text = & & a(i)
&#39;随机生成10个数NextFor i = 0 To 9
&#39;将这个数组显示在Text1中NextEnd SubPrivate Sub Command2_Click()ReDim Preserve a(UBound(a) + 1)
&#39.Text = Text2; Then Text2.Text = a(i) Else Text2; & a(i)
&#39.Text = &数组最后一个元素的值为新增加的随机数For i = 0 To UBound(a)
&#39;For i = 0 To UBound(a)If Text2; a(j) Then
a(i) = a(j)
NextNextText2;&&quot.Text = &quot.Text & &&quot.Text = a(i) Else Text1;对这个数组进行排序
For j = i + 1 To 9
If a(i) &数组中增加一个元素Randomizea(UBound(a)) = CLng(Rnd * 100 + 100)
&quot.Text = &quot.Text & & Then Text1.Text = Text1;
& a(j) Then
a(i) = a(j)
NextNextText1;重定义数组For i = 0 To 9Randomizea(i) = CLng(Rnd * 100 + 100)
&#39;定义一个数组Private Sub Command1_Click()Dim t As LongReDim a(9)
&#39：Dim a() As Long
&#39界面就上面的了代码如下;对这个数组进行排序
For j = i + 1 To UBound(a)
If a(i) &For i = 0 To 9If Text1;&quot
我试试～！
谢谢大神！感激涕零！
呵呵，试试吧，感觉不错就把分给我
大神，怎么重新定义全局声明中的数组纬数啊？
你这个不行啊
我在你给的代码的基础上重新修改了一下，现在还有一点小问题就是：全局变量已经写成了Arr（1TO10)在局部模块中怎么修改这个变量让它变成
每输入一个数数组数就多一个的动态数组
定久全局变量的数组在程序起始定义Dim Arr() As Long在Form_Load中重定义ReDim Arr(10)
&#39;给Arr数组分配大小至于你说代码不行。。。。。除非我理解错了意思这段代码已经自己测试过了按Command1,随机生成10个数，并且进行从小到大的排序，放到Text1中按Command2 添加一个数，并且重新排序，放到Text2中明白了。。。。插入的数不是随机生成的是吧？是手动输入的数将ReDim Preserve a(UBound(a) + 1)
&#39;数组中增加一个元素Randomizea(UBound(a)) = CLng(Rnd * 100 + 100)
&#39;数组最后一个元素的值为新增加的随机数修改成Dim Str As StringReDim Preserve a(UBound(a) + 1) Str = InputBox(&请输入一个数字：&)a(UBound(a)) = Clng(Str)
真的....我输入的时候
提示说有语法错误
不过我已经非常感谢你了！
现在老是在按第二个按钮的时候
我现在搞不懂的地方就是怎么修改这个代码让多次加入数据的时候使整个数组数据也跟着扩大
大神，如果你能帮我解决这个问题，我愿意把我有的所有的分都给你，真的！今天下午就要交作用了我还是调不好
出错时是什么提示？ReDim Preserve a(UBound(a) + 1)
就是重定义数组维数，并且保留之前的值
提示【数组纬数已定义】
public Dim arr(1 to 11) as integer
有这个全局声明
刚刚又测试了一下，没有问题第一个Dim a() As Long,是在程序第一行，定义的是全局变量第二次是ReDim a(9)
&#39;重定义数组维数为0-9第三次是ReDim Preserve a(UBound(a) + 1)
’重定义数组维数，在现有基础上增加一维
好，那我再试一下！
如果把text改成picture怎么办？
题目要求一定要用picture表示出来
改成Picture的话简单一些在输入前先清屏Picture将Text1.Text = &&For i = 0 To 9If Text1.Text = && Then Text1.Text = a(i) Else Text1.Text = Text1.Text & &
& & a(i) Next这一段修改为Picture1.clsFor i = 0 To 9Picture1.Print a(i)Next 第二段一样地修改不过是将For i = 0 To 9 修改为For i = 0 To UBound(a)
好，我再写一遍。大神，大中午的，太谢谢你了！
提问者评价
太给力了，你的回答完美的解决了我的问题！
来自团队：
其他类似问题
为您推荐：
vb数组的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁