vb.net2010案例 vbnet implements

vb.net (2010) 连接access数据库及操作代码 （读取 写入 创建新表）【解决后再加50分】

由于 没有VS2010，只能简单写几句代码。用ODBC连接数据比较方便，你首先要引用system.data和system.data.odbc

dim cn as odbcconnection

cn=new odbcconnection("driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=数据库路径\数据库名.mdb")

dim tsql as string

tsql="select username from [user]"

dim od as odbcdataadapter

dim ds as dataset=new dataset

od=new odbcdataadapter(tsql,cn)

od.fill(ds)

listbox.items.clear

for i=0 to ds.tables(0).rows.count-1

listbox.items.add(ds.tables(0).rows(i),i)

next i

大概是这样的，希望能对你有所帮助。

相关问答

Q1: vb.net 2010 调用word程序 打开一个word文档

1 使用Shell函数直接调用

语法：Shell (pathname[,windowstyle]).Pathname是指要执行的程序的名字和任何必须的参数或命令行开关，可以包括目录和驱动器名；Windowstyle是执行程序的窗口风格的数字。

使用Shell调用Word比较简单，编程量小，但必须明确指定Word所在路径，这不利于移植，而且，不能对Word进行控制，不利于程序和Word之间的数据交换。

2 使用OLE自动化控制Microsoft Word

2.1 使用方法

（1)Word为OLE自动化提供一种称为“Basic”的对象，要在VB中控制Word ,首先要定义一个引用Word中“Basic”对象的对象变量：Dim Wordobj as Object

(2)将Word 中的“Basic”对象赋给该对象：Set Wordobj=CreateObject("Word.Basic")

(3)可以使用大多数WordBasic语句和函数控制Word或Word文档，使用方法和在Word宏中使用WordBasic指令的方法基本相同。

(4)关闭Word:Set Wordobj =Nothing。

注意：“Basic”对象不支持关闭它自己的一个方法。即若在OLE自动化中关闭了Word，则对象被置为Nothing，便不能再对对象进行操作，程序出错。

2.2 VB指令与WordBasic指令的差异

(1)有一些语句和函数不能使用，包括：控制结构，如While…Wend和If…Then…Else；声明语句，如Dim；定制对话框相关的语句：FileExit语句；要求数组变量作为参数的语句或函数。

(2)也有一些指令使用方法不同。①返回字符串以一个美元符（$）结束的WordBasic函数的关键字必须括在方括号中。例如，在WordBasic宏中的GetBookmark$()语句：mark$=GetBookmark$("Address")，若用VB调用，必须这样写mark$=Wordobj.[Ge-tBookmark$]("Address")。②选择一个命令按钮用“True”,不选择用“False”

2.3 对OLE自动化的说明

Word可以为OLE自动化给另一个应用提供对象，但是它不能使用OLE自动化访问其它应用中的对象。例如：VB和Excel可以使用OLE自动化访问Word，但是Word不能使用OLE自动化访问它们。

3 在包容器中嵌入Word对象

在VB中，要访问在包容器中嵌入的Word对象，首先要在项目中插入对象。做法如下：在窗体中插入OLE控件，对象类型选择“MicrosoftWord图片”或“Microsoft Word文档”，再按“确定”。

然后用Object属性访问文档或图片，并使用WordBasic语句和函数作用于它。嵌入的对象必须在可被访问之前被激活，可以使用Action属性激活OLE控件。例如，使用下面指令访问一个嵌入在称为OLE1的OLE控件中的文档：

Dim Wordobj as Object

OLE1.Action =7

Set Wordobj =OLE1.Object.Application. WordBasic

其他方面，使用方法同OLE自动化。使用在包容器中嵌入的Word对象，Word显示的窗口大小、位置与OLE控件定义的大小、位置相同，而且工具栏显示位置与Word脱离。这一点与OLE自动化相比，是个不足。

总之，要想在Microsoft Visual Basic中控制Microsoft Word，最好使用OLE自动化，通过使用WordBasic指令对Word进行全面控制，而且，用户使用起来与使用Microsoft Word一样，非常方便。

Q2: VB.net（VS2010）读写Excel2010

你可以使用

Private Sub Form_Load()

    Dim a As Object

    Dim b As Object

    Dim c As Object

    Set a = GetObject(, "Excel.Application")

    Set b = a.WorkBooks.open(Path  "\工作簿1.xlsx")

    a.Visible = False

    Set c = b.worksheets(1)

    

    

End Sub

要引用：microsoft activex data objects 2.5 library

Private Sub Form_Load()

    Dim cnn As ADODB.Connection

    Set cnn = New ADODB.Connection

    cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=Excel Files;DBQ="  App.Path  "\Book1.xlsx;DriverId=1046;FIL=excel 8.0"""

    Dim rs As ADODB.Recordset

    Set rs = New ADODB.Recordset

    rs.Open "select * from [sheet1$]", cnn

    Set Me.MSHFlexGrid1.DataSource = rs

End Sub

Q3: vb.net一键关闭显示器

Public Class Form1

    System.Runtime.InteropServices.DllImport("user32.dll") _

    Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    End Function

    Const SC_MONITORPOWER As Integer = HF170

    Const WM_SYSCOMMAND As Integer = H112

    Private Enum MonitorMode As Integer

        [ON] = -1

        STANBY = 1

        OFF = 2

    End Enum

    Private Sub ChangeMonitorState(ByVal mode As MonitorMode)

        SendMessage(-1, WM_SYSCOMMAND, SC_MONITORPOWER, CInt(mode))

    End Sub

    Private Sub Off()

        ChangeMonitorState(MonitorMode.OFF)

    End Sub

    Private Sub [On]()

        ChangeMonitorState(MonitorMode.[ON])

    End Sub

    Private Sub StandBy()

        ChangeMonitorState(MonitorMode.STANBY)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Off()

    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        If e.KeyCode = Keys.Escape Then [On]()

    End Sub

End Class

按button1按钮关闭显示器，按Esc键打开显示器

Q4: 2010VB.net 如何一直读取TXT文档最后一行信息，麻烦给个代码，谢谢

首先在代码的开头引入命名空间：

Imports System.IO

给出三个读文本文件的例子。

        '直接读取所有文本

        Dim fileString As String = File.ReadAllText("1.txt")

        '把所有行弄进一个数组

        Dim fileLines() As String = File.ReadAllLines("1.txt")

        '以流的方式一行一行读取

        Using fs As FileStream = File.OpenRead("1.txt") '初始化文件流

            Using sr As New StreamReader(fs) '初始化流读取器

                Dim lineString As String = ""

                While Not sr.EndOfStream '循环直到流结束

                    lineString = sr.ReadLine() '读一行

                    '这里lineString就是每行的文件内容了。

                    '你可以在这里对它进行处理。

                End While

            End Using

        End Using

Q5: vb.net程序（VS2010开发）中如何嵌入百度地图?求编程大神指导

这个说简单也简单，百度google都有自己的地图接口，去找一下接口调用说明，里面都有案例。在程序里面调用即可。至于调用后具体的功能则需要查询接口函数。我以前做过google的，百度的实际上也是一样

关于vb.net2010案例和vbnet implements的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。