专栏首页VB小源码#安卓开发# B4A 连接mssql 数据库

#安卓开发# B4A 连接mssql 数据库

  1. 引用类库 mssql(1.0.1) javaobject
  2. 连接mssql代码
Sub Process_Globals

  Public ms_sql As MSSQL
  
End Sub


Public Sub cn_sql As Boolean
  Try
    gbyg
    ms_sql.setDatabase("数据库地址","数据库名","数据库用户名","数据库用户密码")
    Return True
  Catch
    Return False
  End Try

End Sub

Public Sub res_sql(sql As String) As Object
  Try
    Dim tb As List
    tb.Initialize
    tb=ms_sql.Query(sql)
    Return tb
  Catch
    Return Null
  End Try

  
End Sub

Public Sub cmd(sql As String) As Boolean
  Try
    ms_sql.ExecuteNonQuery(sql,True)
    Return True
  Catch
    Return False
  End Try

  
End Sub

Sub gbyg
  Dim jo As JavaObject
  jo.InitializeStatic("android.os.Build.VERSION")
  If jo.GetField("SDK_INT") > 9 Then
    Dim policy As JavaObject
    policy = policy.InitializeNewInstance("android.os.StrictMode.ThreadPolicy.Builder", Null)
    policy = policy.RunMethodJO("permitAll", Null).RunMethodJO("build", Null)
    Dim sm As JavaObject
    sm.InitializeStatic("android.os.StrictMode").RunMethod("setThreadPolicy", Array(policy))
  End If
End Sub

3.main 代码

#Region  Project Attributes 
  #ApplicationLabel: B4A Example
  #VersionCode: 1
  #VersionName: 
  'SupportedOrientations possible values: unspecified, landscape or portrait.
  #SupportedOrientations: unspecified
  #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
  #FullScreen: False
  #IncludeTitle: True
#End Region

Sub Process_Globals
  
 
End Sub

Sub Globals

  Private Button1 As Button
  Private Button2 As Button
  Private EditText1 As EditText
  Private EditText2 As EditText

End Sub

Sub Activity_Create(FirstTime As Boolean)
  Activity.LoadLayout("main")
  If FirstTime Then
    If code_sql.cn_sql Then
      ToastMessageShow("数据库连接成功!",False)
    Else
      ToastMessageShow("数据库连接失败!",True)
    End If
  End If
  
End Sub

Sub Activity_Resume
  
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
  StartActivity(Login)
End Sub

Sub Button2_Click
  If EditText1.Text="" Or EditText2.Text="" Then
    ToastMessageShow("请输入用户名或密码!",False)
  Else
    If tf_user Then
      code_sql.name=EditText1.Text
      StartActivity(welcome)
    Else
      ToastMessageShow("用户名或密码错误!",False)
    End If
  End If

End Sub


Sub tf_user As Boolean
  Try
    Dim ls As List,rs As String
    ls.Initialize
    ls.AddAll(code_sql.res_sql($"select pswd from yz where name='${EditText1.Text}'"$))
    If ls.IsInitialized Then
      If ls.Size>1 Then
        ls = ls.get(1)
        rs=  ls.get(0)
        If rs=EditText2.Text Then
          Return True
        Else
          Return False
        End If
      Else
        Return False
      End If
    Else
      Return False
    End If
  Catch
    Return False
  End Try
End Sub

4.login代码

#Region  Activity Attributes 
  #FullScreen: False
  #IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals


  Private EditText1 As EditText
  Private EditText2 As EditText
  Private Label1 As Label
  Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)

  Activity.LoadLayout("login")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
  If EditText1.Text="" Or EditText2.Text="" Then
    ToastMessageShow("请输入用户名或密码!",False)
  Else
    If  code_sql.cmd($"insert into yz(name,pswd) values ('${EditText1.Text}','${EditText2.Text}')"$) Then
      Msgbox("注册成功!","")
    Else
      ProgressDialogHide
      Msgbox("注册失败!","")
    End If
  End If
End Sub

5.源代码下载地址

https://www.lanzous.com/i9y1rgh
好啦!今天教程到此结束啦!

本文分享自微信公众号 - VB小源码(vb_xym),作者:VB小源码

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2020-03-04

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • 用VB.NET 撸一个登录界面(开箱即食)

    界面均使用panel、Label、textbox、pictruebox 拼凑而成!

    巴西_prince
  • #安卓开发# B4A示例20200217:《抖印无踪》

    这是一款集,权限获取,粘贴板应用,菜单应用,网页跳转,文件下载,创建目录,json解析,网页请求,控件简单使用 ,于一体的教程示例!

    巴西_prince
  • B4A 手机客户端源码

    Sub Process_Globals Dim Socket1 As Socket Dim AStreams As AsyncStreams

    巴西_prince
  • 用VB.NET 撸一个登录界面(开箱即食)

    界面均使用panel、Label、textbox、pictruebox 拼凑而成!

    巴西_prince
  • B4A 手机客户端源码

    Sub Process_Globals Dim Socket1 As Socket Dim AStreams As AsyncStreams

    巴西_prince
  • VBA制作简单的按键精灵

    还是接着上前面的例子,公司突然要用系统来管理人员信息了,但是由于开发时间过于仓促,竟然没有从Excel导入的功能(好像挺说不通啊!)。你需要把统计好的10几万数...

    xyj
  • VB.NET 日常开销记账本示例

    '-------------------------------------------------------------------------------

    巴西_prince
  • VB2008写的--收藏夹查看程序,适合.net初学者研究(附源码)

    阿炬
  • 字符处理——大小写转换编程思路扩展

    前面我们实现了首字母大写、转换大写、转换小写3个功能,如果再实现一个大小写互换,有了前面的基础,实现起来应该没什么大问题:

    xyj
  • 类模块——举例

    前面使用Open 进行的文件操作,使用起来不是很方便,但是FileSystemObject里的TextStream使用起来就比较方便了,知道了类之后,就可以使用...

    xyj

扫码关注云+社区

领取腾讯云代金券