从品牌网站建设到网络营销策划,从策略到执行的一站式服务
告诉你一个方法;
创新互联主要从事网站设计制作、成都网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务安平,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575
在
End If
与
Form5.Text = Form5.Text " -- " sno snn
这两行代码当中加一行代码:
Msgbox(str)
看看,输出什么,仔细检查一下,就应该知道什么问题了。
如下面这样;
......
End If
Msgbox(str)
Form5.Text = Form5.Text " -- " sno snn
首先在窗体上添加Button1,ListBox1,下面是完整代码
Public Class Form1
Public Sub BubbleSort(ByVal arr() As Integer) '冒泡法排序
Dim temp As Double
Dim i, j As Integer
For i = 0 To arr.GetUpperBound(0) - 1
For j = i + 1 To arr.GetUpperBound(0) - 1
If arr(i) arr(j) Then
temp = arr(j)
arr(j) = arr(i)
arr(i) = temp
End If
Next
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '调用
Dim arr() As Integer = {55, 22, 33, 11, 77, 88}
BubbleSort(arr) '调用排序过程
Me.ListBox1.Items.Clear()
For i = 0 To arr.GetUpperBound(0) - 1 '显示排序后结果
Me.ListBox1.Items.Add(arr(i).ToString)
Next
End Sub
End Class
如果语法没问题的话,那就看看你那个(用户信息表)里有没有name 和 password 字段吧.
我刚碰到和你一样的问题,就是把表名打错了,那表里没有sql语句里的字段.
看一下aa 是否传过来值了
估计是没得到值
strSql = "select top 1 * from userform"
改成这个就知道查询是否出问题了!
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图