深邃的爱🍀的个人资料 - RAT

深邃的爱🍀 悲伤的野狗

关注数: 85 粉丝数: 253 发帖数: 6,339 关注贴吧数: 33

蜈蚣在野外如何越冬？

求购钢丝绳 19mm 2160 右交互捻

关于自定义函数，请教图中sum函数那段代码大佬解读一下

求助VB 单行代码太长如何写成多行百度了，好多都没用

VB中TreeView树视图控件的使用学习笔记整理

VB6读取SQL数据库中以二进制储存的图片数据显示在PictureBOX 需要添加的控件：Microsoft ADO Data Control 6.0(OLEDB) 需要引用 Microsoft ActiveX Data Objects 2.5 Library (或者2.5以上版本）窗体添加 PictureBOX 、 CommandButton 控件 Dim StrPicTemp As String Dim sql As String Dim rs As New ADODB.Recordset Dim conn As New ADODB.Connection Private Sub Form_Load() conn.ConnectionString = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=SQLJxc_Data" conn.Open End Sub '读出图片，并显示 Private Sub Command2_Click() Dim stmpic As New ADODB.Stream sql = "select photo from t_img where goodscode = 'HP0051'" ' On Error GoTo err '读取显示数据库中id为hp0051的图像 Set rs = New ADODB.Recordset rs.Open sql, conn, adOpenKeyset, adLockOptimistic StrPicTemp = "c:\temp.bmp" Set stmpic = New ADODB.Stream With stmpic .Type = adTypeBinary .Open .Write rs.Fields("photo") '写入数据库中的数据至Stream中 .SaveToFile StrPicTemp, adSaveCreateOverWrite '将Stream中数据写入临时文件中 .Close End With Picture1.Picture = LoadPicture(StrPicTemp) '用Picture控件显示图像 Exit Sub err: MsgBox err.Description End Sub

求助这个登录代码可以怎么优化 Option Explicit Dim SQL As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Image2_Click() '点击登录 If Text1.Text = "" Then MsgBox "用户名不能为空" Text1.SetFocus Else If conn.State = 0 Then '判断是否连接数据库 conn.ConnectionString = "Provider=SQLOLEDB.1;Password=320721;Persist Security Info=True;User ID=sa;Initial Catalog=SZC;Data Source=192.168.0.168" '数据库链接字串符 conn.Open '建立链接 Else SQL = "select * from admin where username = '" & Text1.Text & "' and password ='" & Text2.Text & "' " '获取账号密码记录 Set rs = New ADODB.Recordset rs.Open SQL, conn, adOpenKeyset, adLockOptimistic If rs.BOF = False Then MsgBox "登录成功" Else rs.Close SQL = "select * from admin where username = '" & Text1.Text & "' " '获取账号 rs.Open SQL, conn, adOpenKeyset, adLockOptimistic If rs.BOF = True Then MsgBox "用户不存在" If rs.BOF = False Then MsgBox "密码错误" End If End If End If

1 下一页