在VBA中,在调用控件前写入shell +注册控件语句。
成都创新互联公司网站建设公司,提供网站设计、网站建设,网页设计,建网站,PHP网站建设等专业做网站服务;可快速的进行网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,是专业的做网站团队,希望更多企业前来合作!
如果我理解正确的话,有下列方法
方法一:在VBA模块中加入Shell("regsvr32.exe /s " strSystemFolder "Winsock.ocx") 自己改一下变量。本人较早前用过的方法。
方法二:将所有注册组件写进.bat批处理文件中,并加入开机自动运行,或用shell去运行.bat
方法三:微软官方support
最后一段简单翻译一下:RegComCtl32和UnRegComCtl32是用户自定义名称;例中组件是默认在windows/system路径下,如果不在该路径下,请自己添加;DllRegisterServer注意字母大小写。
创建完相应的用户名,密码控件之后,输入以下代码:
Imports System.Data.OleDb
Public Class Form1
Private Sub cmdok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdok.Click
Dim m_username As String
Dim m_userpwd As String
Dim cmd_result As MsgBoxResult
Dim m_da As New OleDbDataAdapter
Dim m_ds As New DataSet
Dim m_command As New OleDbCommand
Dim strsql As String
m_username = txtusername.Text
m_userpwd = txtuserpwd.Text
strsql = " select * from user_info where username='" m_username "' and userpwd='" m_userpwd "'"
OleDbConnection1.Open()
m_command.CommandType = CommandType.Text
m_command.CommandText = strsql
m_command.Connection = OleDbConnection1
m_da.SelectCommand = m_command
m_da.Fill(m_ds, "user_info")
If m_ds.Tables("user_info").Rows.Count 0 Then
cmd_result = MsgBox("欢迎登录", MsgBoxStyle.OKOnly, "提示")
Else
MsgBox("登录失败,请确认用户名和密码")
End If
End Sub
End Class
改为:
sql = "insert into 表1 values(用户名='" TextBox1.Text "' ,密码='" TextBox2.Text "')"
文章题目:vb.net注册控件代码 vb编写软件注册
新闻来源:https://www.cdcxhl.com/article36/hishsg.html
成都网站建设公司_创新互联,为您提供自适应网站、品牌网站设计、营销型网站建设、网站营销、网站改版、服务器托管
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联