我是VB.Net 2010,你看看能行不。
创新互联公司自2013年创立以来,公司自成立以来始终致力于为企业提供官网建设、移动互联网业务开发(小程序制作、手机网站建设、重庆APP开发等),并且包含互联网基础服务(域名、主机服务、企业邮箱、网络营销等)应用服务;以先进完善的建站体系及不断开拓创新的精神理念,帮助企业客户实现互联网业务,严格把控项目进度与质量监控加上过硬的技术实力获得客户的一致赞誉。
Public Class Form1
Private MyTextBoxArray As New ArrayList
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To 8 '利用循环语句动态加入控件数组。
Dim FirstTextBox As New TextBox
'定义文本框对象
Me.Controls.Add(FirstTextBox)
'将一个文本框控件加入到Form上
MyTextBoxArray.Add(FirstTextBox)
'将文本框控件加入到例表集合中
MyTextBoxArray.Item(i).top = i * MyTextBoxArray.Item(i).height + 20 '修改新加入控件在Form上的位置
MyTextBoxArray.Item(i).left = 100
FirstTextBox.TabIndex = i
'修改新加入控件的TabIndex值
MyTextBoxArray.Item(i).text = "TextBox" i.ToString '修改默认文本。
Next
End Sub
End Class
1.查看是不是没有在数据库中添加数据库服务器地址。在数据库中用户名和密码都要用“异或加密”方法加密,具体工具使用MakeGUID。
2. 查看端口是否打开,MSSQL默认是TCP:1433.
3.SQL服务项中服务是否开启或启动。
4. 防火墙是否将TCP:1433端口,添加例外.
解决方法:
2. 查看端口方法有很多,DOS、360网络查看,这里介绍DOS方法,使用方便。
命令:netstat –an
查看是否有1433端口如果没有,按照下面第3项来设置解决。
3. 打开 SQL Server 配置管理器:
· 1)展开 SQL Server 2005/2008 网络配置节点 --展开协议节点 -- 在协议右边启用 TCP/IP 协议 --
在协议右边的 TCP/IP 协议属性中 -- 在 IPAll 这一项--将 TCP 端口设置为 1433.
2)重新启动 SQL Server,如果防火墙没限制,现在就 OK 了。
1、你测试一下,当ComboBox2不选择任何项,看看ComboBox2.SelectedItem=""的值是否为True。
2、建议改用:
If ComboBox2.Text = "" Then
......
试试
添加一个模块,
然后把它复制粘贴到模块里,
然后在窗体级调用。
添加一个模块,
然后把它复制粘贴到模块里,
然后在窗体级调用。
DATAGRIDVIEW其实显示速度非常快的,远超vb6的MSFLEXGRID
如果你愿意,在vb2013中也可以把MSFLEXGRID调处出来的,名字好像是AxMSFlexGrid控件
在工具箱右键添加控件,选择COM,找到Microsoft FlexGrid Control, version 6.0 (SP6)