重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用microsoft sql server比较好,毕竟都是微软的东西,当然也可以用mysql,免费
成都创新互联专业为企业提供桂东网站建设、桂东做网站、桂东网站设计、桂东网站制作等企业网站建设、网页设计与制作、桂东企业网站模板建站服务,十年桂东做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
MSDE是要安装的,所以不能算绿色版。VB.NET做的软件,要.net的支持。
在一定程度上,我是这么认为的:如果你的软件在单机使用,和其他电脑没关系,则用ACCESS。如果数据量很小,那,XML也可以够用。如果你的软件在网络上使用,比如企业的一个小型管理系统,则用SQLSERVER这类网络数据库来支持。
至于绿色:无非是不用安装。VB.net写的软件,把引用的DLL复制到程序所在的文件夹就可以运行。当然.net必须装。
VB.net是微软最新平台技术,是.netframeworkSDK的一种语言。VB.net和VC#.net在功能上没有区别。编译以后生成的可执行文件被称为Assembly,即
程序集
。
判断是否存在查询结果这个有点问题!
修改If MyDataSet.Tables.Count 0 Then 为 If ds.Tables(0).Rows.Count 0 Then
Private Sub DataGridfill(ByVal CmdText As String)
Dim engin As New MyDbEngine
Dim MyDataSet As DataSet
engin.OpenConnect()
MyDataSet = engin.ExecuteDataSet(cmdtext)
engin.CloseConnect()
If ds.Tables(0).Rows.Count 0 Then
Me.DataGridView1.DataSource = MyDataSet.Tables(0)
'把数据写入到文本框
For i = 0 To DataGridView1.RowCount - 1
Panel1.Controls.Item(i).Text = DataGridView1.CurrentRow.Cells.Item(i).Value.ToString
Panel1.Controls.Item(i).Enabled = False
Next
Else
MsgBox("没有查询结果")
End If
End Sub
改成下面这样:
Dim cmdtext As String = "Update 用户信息表 Set 密码='" txt密码new.Text "',用户='" txt用户名.Text "' Where ID=" Int(Val(UserID))