189 8069 5689
'''两段程序就是利用.net的连接对象的功能来完成登录的实例
公司主营业务：成都网站建设、成都网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出墨江免费做网站回馈大家。
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click 'start按钮触发的函数
Dim schclass As String = Trim(txtClass.Text) ‘将txtClass里文本赋值给变量schclass
Dim selestr As String
’提示用户txtClass文本框不能为空
If schclass "" Then
selestr = "班级='" schclass "'"
Else
MsgBox("请输入班级名称", 64, "提示") ‘ 显示保存成功提示信息
End If
‘创建一个DataView对象，即将数据集DataSet11里的学生成绩表的DefaultView实例化
Dim dvresult As DataView = DataSet11.学生成绩.DefaultView
’按学号字段排序
dvresult.Sort = "学号"
‘按刚才txtClass里输入的班级查询
dvresult.RowFilter = selestr
dvresult.RowStateFilter = DataViewRowState.CurrentRows
’然后将筛选的结果输入到datagrid上
DataGrid1.DataSource = dvresult
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click ‘ok按钮触发的函数
’如果txtUserName或txtPass文本框为空，提示并中断函数
If txtUserName.Text = "" Or txtPass.Text = "" Then
Response.Write("script language=vbscriptalert""用户名或密码不能为空！""/script")
Exit Sub
End If
‘定义链接、执行、阅读 对象
Dim mycon As New OleDbConnection
Dim mycmd As New OleDbCommand
Dim reader As OleDbDataReader
’给连接对象赋值连接字符串，access类型的。
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
Server.MapPath("Msg.mdb")
‘打开连接对象
mycon.Open()
’将连接对象复制到执行对象上
mycmd.Connection = mycon
‘然后就给执行对象赋值执行类型和执行语句
mycmd.CommandType = CommandType.Text
mycmd.CommandText = "Select * from myuser Where 用户名='" txtUserName.Text "'" " and 密码='" txtPass.Text "'"
’然后将执行对象的监听实例化
reader = mycmd.ExecuteReader()
‘如果执行不成功，即没有得到结果集就提示否则将结果集的用户名赋值给一个session以供其他页面使用
If reader.Read = False Then
Response.Write("script language=vbscriptalert""用户名或密码错，你不能登录！""/script")
Else
Session("username") = reader("用户名")
Response.Redirect("lwmsg.aspx")
End If
’关闭监听
reader.Close()
‘关闭连接
mycon.Close()
End Sub
Dim clh As ColumnHeader '声明列表头
Dim rs As New ADODB.Recordset '声明一个变量
lv.ColumnHeaders.Clear’Lv清空列表头
lv.ListItems.Clear '清空列表
lv.GridLines = True '显示格线
lv.FullRowSelect = True '整行选择模式
lv.View = lvwReport ’设置视图为列表视图
rs.Open "select * from 入库", Cnn '运行查询
For i = 0 To rs.Fields.Count - 1 ’for循环，所有记录表的字段
Set clh = lv.ColumnHeaders.Add(, , rs.Fields(i).Name) ’添加列表头与rs字段相同的名字
Next
lv.GridLines = True ’显示网格
lv.FullRowSelect = True ’整行模式选择
lv.View = lvwReport ’设置视图为列表视图
Set RsPage = rs ’复制rs
RsPage.PageSize = 40 ’每页显示40个记录
Label5.Caption = RsPage.PageCount ’显示页的数量
If rs.EOF = True Then ’判断是记录的结束
Label7.Caption = 0 ’显示0
Label5.Caption = 0 ’显示0
For i = 1 To 4
Label1(i).Enabled = False ’禁用标签1-4
Next
Else '判断不是记录的结束
Label7.Caption = 1 ’显示1
RsPage.MoveFirst '移到第一个记录
Call ShowPage(RsPage, 1) ’显示第一页
End If
End Sub
Private Sub ShowPage(rs As Recordset, nPage As Integer)
rs.AbsolutePage = nPage '显示参数nPage页
lv.ListItems.Clear '列表清空
Dim item As ListItem ’声明列表
For i = 1 To 40
If rs.EOF = True Then Exit Sub ’判断是记录的结束，退出函数
Set item = lv.ListItems.Add(, , Trim(rs.Fields(0).Value)) ’添加列表行，0字段的值
For j = 1 To rs.Fields.Count - 1
item.SubItems(j) = IIf(IsNull(rs.Fields(j)), "", Trim(rs.Fields(j))) ’填写行的其他字段
Next
rs.MoveNext '移到下一个记录
Next
End Sub
Private Sub Command2_Click()
If Text2.Text "" Then
FrmPJsy.Show 'text2得值不为空时，FrmPJsy显示
End If
End Sub
Private Sub lv_Click()
If lv.ListItems.Count = 1 Then ’如果行数不小于1
For i = 1 To lv.ListItems.Count
If lv.ListItems(i).Selected Then ’ 显示记录的每一段的内容
Text1(6).Text = Trim(lv.ListItems(i).Text)
Text1(0).Text = Trim(lv.ListItems(i).SubItems(1))
Text1(1).Text = Trim(lv.ListItems(i).SubItems(2))
Text1(2).Text = Trim(lv.ListItems(i).SubItems(3))
Text1(3).Text = Trim(lv.ListItems(i).SubItems(4))
Text1(4).Text = Trim(lv.ListItems(i).SubItems(5))
Text1(5).Text = Trim(lv.ListItems(i).SubItems(6))
DTPicker1.Value = Trim(lv.ListItems(i).SubItems(7))
Text1(7).Text = Trim(lv.ListItems(i).SubItems(8))
Command1(1).Enabled = True ’按钮可以使用
Command1(2).Enabled = True
End If
Next
End If
End Sub
菜单“视图”-“工具栏”-“编辑”，该工具栏可以批量设置注释或者取消注释（以行为基础）
Public file_name As String '声明全局变量,存储文件名
Private Sub 浏览_Click() '[按钮?]单击事件
CommonDialog1.Filter = "EXCEL文件(.XLS)|*.XLS|所有文件|*.*" '设置通用对话框过滤 xls文件 或 所有文件
CommonDialog1.ShowOpen '显示打开对话框
file_name = CommonDialog1.FileName '得到用户选择的文件名
If file_name = "" Then Exit Sub '判断文件名是否有效,无效则退出过程
List1.Clear '清空列表框
Dim xlExcel As Excel.Application '声明Excel应用程序实例
Dim xlBook As Excel.Workbook '声明Excel工作簿实例
Dim xlSheet As Excel.Worksheet '声明Excel表单实例
Set xlExcel = CreateObject("Excel.Application") '生成Excel应用程序实例
Set xlBook = xlExcel.Workbooks.Open(file_name) '打开xls文件
xlExcel.Visible = False '在后台处理,不显示Excel窗口
For i = 1 To xlBook.Sheets.Count '遍历所有工作表
Set xlSheet = xlBook.Worksheets(i)
xlSheet.Activate '激活第i个工作表
List1.AddItem xlSheet.Name '将工作表名添加到列表框
DoEvents '让系统响应一下其他消息
Next
xlBook.Close '关闭工作簿
xlExcel.Quit '退出Excel
End Sub
Private Sub List1_Click() '列表框单击事件
If Text1.Text = "" Then Exit Sub '如果Text1文本框没有内容则退出过程
If file_name = "" Then Exit Sub '如果用户选择的文件名无效则退出过程
Dim Con As New ADODB.Connection 'ADODB连接对象声明
Dim ConStr As String '声明字符串变量
Con.CursorLocation = adUseClient '设置游标引擎的位置,相关请参阅MSDN
ConStr = "driver=sql server;server=(local);uid=sa;pwd=56776606;database=knife;" '赋值:用sa账号,56776606为密码,连接本机SQLServer的knife数据库
Con.Open ConStr '打开连接
Con.Execute "SELECT * INTO " Text1.Text " FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=" file_name "'," List1.Text "$)"
'access、Oracle等数据库可以用SELECT....INTO....from...语句，可以在事先不创建表的情况下，直接将查询结果保存到一个新创建的表中。
'请不要见笑,貌似SQLServer不能这么做,当然我没有试验,我从来没这么做过,这个是把List1选择的工作表作为数据表,Text1制定的作为目标工作表
Con.Close '关闭连接
Set Con = Nothing '释放变量
MsgBox "导入成功！" '提示数据导入成功
Beep '制造dooooong的一声他妈的噪音
End Sub
Private Sub 导入Excel_Click() '单击事件
'碌碌无为
End Sub
1、首先，双击进入代码窗口。
2、然后按下单引号即可开始注释。
3、这时我们可以看到被注释的语句是绿色的文字。
4、也可以打开编辑窗口。
5、然后点击此按钮即可多行注释。
6、也可以点击这个取消多行注释。
注意事项：
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序[ 。