Basic4Android Basic4Android是Android平台上一个简单而又强大的可视化快速安卓应用开发工具，它可被用来开发和测试数据库通信，甚至可以被用来开发2D的即时游戏。Basic4Android兼容了Google的AdMob数据库，所以开发者可以在他们开发的应用中植入广告来获取收益。 主要特性： 1.编译为原生的bytecode，不需要运行库。生成的APK文件与Java / Eclipse生成的文件完全一样 2.与Java编写的应用性能相同 3.与Visual Basic类似的事件驱动编程语言，支持对象和代码模块 4.不需要写任何XML文件 5.可视化编辑器支持多屏幕和各种分辨率 6.支持Android 1.6及其以上版本的所有移动设备 7.支持自动完成、内置文档、内部索引和其它高级功能 8.强大的单步调试功能 9.支持所有的Android核心特性 02 Gimbal context ware Gimbal是高通旗下Qualcomm Labs推出的一款面向iOS和Android平台的SDK。Gimbal中的内置函数库能够为开发者提供特定位置或地理围栏解决方案。Gimbal环境感知SDK帮助开发者向手机用户提供及时、个性化的相关内容，开发者可以从SDK中选择所需的软件库加入应用中。 这些SDK包括： 1.Gimbal Geofence：旨在提供基于地理围栏的低功耗位置识别服务。这一工具将赋予应用“环境感知”功能，即能够根据用户所在的位置对用户做出有益调整。 2.Gimbal Interest Sensing：使应用能够根据终端用户的个人信息和兴趣做出调整，此工具可以针对特定受众提供定制应用。 3.Gimbal Image Recognition：使终端用户可以通过智能手机的摄像头发起互动体验。 4.Gimbal Manager：是一款基于Web的工具，用于管理地理围栏、个人信息规则、图像目标、内容、发布和分析。 5.Gimbal Privacy：供终端用户管理Gimbal及其功能，Gimbal旨在让终端用户了解和掌控他们分享环境和兴趣的内容和时间，并保护用户的个人信息。 03 Titanium SDK Titanium旨在为跨平台的原生移动开发提供一种更高级的API，所以开发者可以访问一系列从用户界面组件、插座接口到通知系统集成的原生特性和功能。Titanium的目的是将Titanium应用程序和纯原生应用程序之间在功能方面的差异缩小到几乎为零。目前，Titanium支持iOS、Android、BlackBerry和Windows Phone。此外，Titanium借助统一的JavaScript API，针对特定平台的功能特性以及原生性能，实现代码重用，大大地缩减了开发者的工作时间。 主要特性： 1.开源：Titanium采用宽松的Apache 2.0许可证 2.高效开发：通过代码重用，减少了开发者的工作时间，调高工作效率 3.廉价特性：通过使用JavaScript SDK降低了跨平台操作的成本 04 Vuforia Vuforia是一款能将现实世界物体转变为互动体验的扩增实境平台。旨在帮助开发者打造全新级别的真实世界物品与虚拟物品的互动。它使用家算计视觉技术来实时地识别和跟踪平面图像以及简单的3D图像，使开发者能够在现实世界和数字体验之间架起桥梁。 Vuforia通过Unity游戏引擎扩展提供了C、Java、Objective-C和.Net语言的应用程序编程接口。从而Vuforia SDK能够同时支持iOS和Android的原生开发，这也使开发者在Unity引擎中开发AR应用程序时很容易将其移植到iOS和Android平台上。 主要特性： 1.跨平台：同时支持iOS和Android系统 2.AR特性： Vuforia是移动设备最好的增强现实体验平台 3.最佳的性能体验：通过无与伦比的交互性实现现实与虚拟的完美互动 4.文字识别功能：支持借助智能手机和平板电脑摄像头实现实时文字识别 05 Safe ijiami safe.ijiami 是一款免费的App安全检测工具，是爱加密推出的重磅产品，国内首家自动化App安全检测平台。移动应用开发工具和移动应用漏洞检测工具，一键上传，方便快捷，只需一键上传APK就可完成安全漏洞检测，检测结果清晰、详细、全面，并可一键生成报告，极大的提高了开发者的开发效率，有效帮助开发者了解App安全状况，找出自己APP所存在的漏洞和薄弱环节，帮助可以帮助APP开发者进行APP加壳加密保护。 四大特色： 1.文件检查 检查dex、res文件是否存在源代码、资源文件被窃取、替换等安全问题。 2.漏洞扫描 扫描签名、XML文件是否存在安全漏洞、存在被注入、嵌入代码等风险。 3.后
成都创新互联公司专业为企业提供廉江网站建设、廉江做网站、廉江网站设计、廉江网站制作等企业网站建设、网页设计与制作、廉江企业网站模板建站服务，10年廉江做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
1、安装Microsoft.NET Framework2.0 （可选，XP系统一定要装，如果不装，Basic4Android不可启动）
2、Java SDK安装
3、Android SDK安装
安装成功后，通过Android SDK Manager 下载并安装所需的SDK
完成上一步后，再通过AVD工具创建Android模拟器
4、Basic4Android主界面及路径设置
5、Basic4Android程序调试通过后会自动装入手机模拟器
6、所需文件如下：
其中Android.rar是我已经下载好的Android SDK，包含Android2.2的模拟器，覆盖原安装文件，省去重新下载的时间及麻烦。按文件的顺序安装就是。
试试vb4android，相当于可以用vb的语言开发apk，石貌似vb4a还处于开发阶段，bug超多，而且要JDK支持。
要查找数据库信息，关键是要解决链接数据库的问题，下面简述Vb如何SQL数据库：
有两种方法可以实现，一种是通过ODBC数据源的配置进行连接，一种是通过纯代码编辑进行连接，下面我们就详细介绍一下这两种连接方法。
ODBC数据源VB连接SQL数据库
一、配置ODBC数据源
1、在控制面板中，双击管理工具，然后打开ODBC数据源管理器。
2、在“系统DSN”选项卡中，单击“添加”按钮，打开“创建新数据源”对话框，在“名称”列表框中选择“SQL Server”。选好单击完成
3、在打开“建立新的数据源到SQL Server”对话框，在“名称”文本框输入新数据源的名称，描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。
4、选择使用用户输入登录的ID和密码的SQL 验证。选连接SQL默认设置
5、再下一步下一步，完成。测试数据源看连接是否成功就行了。成功后按确定。
二、VB中设置连接
1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗体。
2、对ADO部件点右键选属性，选择使用连接字符串，按生成。
3、选择Mircosoft OLE DB Providar for SQL Server按下一步
4、
1）输入服务器名称
2）使用指定的服务器信息
3）在服务器上选择数据库
这时就选择你在SQL Server建好的数据库就行了
5、测试连接可以看到连接是否成功！
通过代码VB连接SQL数据库
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean
Public Function OpenCn(ByVal Cip As String) As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = Cip '服务器的名字
conn.Properties("initial catalog").Value = "zqoa" '库名
'conn.Properties("integrated security").Value = "SSPI" '登陆类型
conn.Properties("user id").Value = "sa"
conn.Properties("password").Value = "sa"
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "Data can't connect"
Call MsgBox(mag, vbOKOnly, "Error:Data connect")
addFlag = False
Exit Function
End Function
Public Sub cloCn()
On Error Resume Next
If conn.State adStateClosed Then conn.Close
Set conn = Nothing
End Sub
Public Function openRs(ByVal strsql As String) As Boolean '连接数据库记录集
Dim mag As String
Dim rpy As Boolean
On Error GoTo strerrmag
Set rs = New ADODB.Recordset
If addFlag = False Then rpy = True
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strsql
End With
addFlag = True
openRs = True
End
'Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKOnly, "error:connect")
openRs = False
End
'Exit Function
End Function
Public Sub cloRs()
On Error Resume Next
If rs.State adStateClosed Then rs.Clone
Set rs = Nothing
End Sub