摘要： 1 Public Sub connect() 2 Dim conn As New SqlClient.SqlConnection("driver={SQL Server};server=PC-201105311336\SQLEXPRESS;Uid=sa;Pwd=123456;Database=jiaxiaoai") 3 Dim myDataSet As New DataSet 4 Dim sql As String 5 sql = "select * from student" 6 Dim rs As SqlClient.SqlDataAdapter 7 阅读全文

摘要： 1、整型转换成字符串 str(整型变量)2、字符串转化为整型 val（字符串变量） 阅读全文

摘要： 登陆框代码： 1 '登陆框 2 Public Class 登陆 3 4 Private Sub okbtn_Click(ByVal sender As System.Object, ByVal e As 5 6 System.EventArgs) Handles okbtn.Click 7 If (Trim(usertext.Text) = "" Or Trim(passwordtext.Text) = "") 8 9 Then10 MsgBox("用户名或密码不能为空", vbOKOnly, "提示") 阅读全文