VB打开EXCEL的方法 vb.net 打开excel文件

★VB打开EXCEL的方法

一楼的没有指明

Dim xlBook As Excel.WorkBook

Set xlBook = App.Workbooks.Open("文件名")

这种语法同样要求excel已经存在才能操作。

Public xlApp As Excel.Application

Public xlBook As Excel.Workbook

Public xlChar As New Excel.Chart

Public xlSheet As New Excel.Worksheet

Set xlApp = New Excel.Application

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Add

Set xlSheet = xlBook.Worksheets.Add

xlSheet.Cells(1, 1) = "测试" '写入内容

xlBook.SaveAs ("FILENAME") '保存文件

xlApp.Quit

Set xlApp = Nothing

本方法采用add添加excel文件和datasheet,然后用save保存。如果用xlApp.Visible=False,则自动生成文件。但是如果文件已经存在,则会弹出是否覆盖的提示。因此,最好先在程序中检查文件是否已经存在,如果存在,则用普通方法打开。如果不存在,则用add添加,并保存。

★打开相对路径下的文件

Private Sub Command1_Click()

Shell App.Path & "aaa.bat"

End Sub

还有更简单的:

Private Sub Command1_Click()

Shell "aaa.bat"

End Sub

aaa.bat就是那个BAT的名字.

那就不一定......

因为SHELL只对可执行文件有效.你可用WINDOWS外壳程序explorer.exe打开任何文件(包括文件夹)

代码:

Private Sub Command1_Click()

Shell "explore.exe aaa.jpg"

End Sub

★VB调用EXCEL自带的查询功能在表格中查找内容

Private Sub ComCx_Click()

On Error GoTo 50

i = xlBook.Worksheets("代码").Range("A:A").Find(Trim(TexDm.Text)).Row

★将程序中所有这一类的对象的某一属性全部更改为需要的属性

Dim Item As Object '定义对象

For Each Item In Me

If TypeOf Item Is TextBox Then Item.Text = "" '将所有TextBox的Text属性值变为空

If TypeOf Item Is ComboBox Then Item.ListIndex = -1 '将所有的ComboBox的ListIndex属性值变为“-1”

Next

If Not i = 0 Then

Dm = Trim(TexDm.Text)

Sm = Trim(xlBook.Worksheets("代码").Cells(i, "B").Value)

Dw = Trim(xlBook.Worksheets("代码").Cells(i, "D").Value)

TexSm.Text = Sm & " " & "(" & Dw & ")"

ComQd.Visible = True

GoTo 100

End If

50

TexSm.Text = "没有找到相匹配的信息!"

100

End Sub

★如何使编的程序可以调用excel

首先要引用

再定义对象及其类型

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open("D:检包组合金厂代码查询xls合金JDE代码.xls")

xlApp.Visible = False

Set xlSheet = xlBook.Worksheets("确认信息")

★另存为

ChDir "D:"

ActiveWorkbook.SaveAs Filename:="D:合金厂产品质检明细表.xls", FileFormat:=xlExcel8, _

Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

CreateBackup:=False

VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作

带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统,

如何把它们有机地结合在一起,是一个值得我们研究的课题。

一、 VB读写EXCEL表:

VB本身提自动化功能可以读写EXCEL表,其方法如下:

1、在工程中引用Microsoft Excel类型库:

从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。表示在工程中要引用

EXCEL类型库。

2、在通用对象的声明过程中定义EXCEL对象:

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

3、在程序中操作EXCEL表常用命令:

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件

xlApp.Visible = True '设置EXCEL对象可见(或不可见)

Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表

xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值

xlSheet.PrintOut '打印工作表

xlBook.Close (True) '关闭工作簿

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏

xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

4、在运用以上VB命令操作EXCEL表时,除非设置EXCEL对象不可见,否则VB程序可继续执行其它操作,也能够关闭EXCEL,同时也可对

EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时,VB程序无法知道,如果此时使用EXCEL对象,则VB程序会产生自动化错误。形成

VB程序无法完全控制EXCEL的状况,使得VB与EXCEL脱节。

二、 EXCEL的宏功能:

EXCEL提供一个Visual Basic编辑器,打开Visual Basic编辑器,其中有一工程属性窗口,点击右键菜单的"插入模块",则增加一个

"模块1",在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中,EXCEL有两个自动宏:一个是启动宏(Sub Auto_Open())

,另一个是关闭宏(Sub Auto_Close())。它们的特性是:当用EXCEL打含有启动宏的工簿时,就会自动运行启动宏,同理,当关闭含有关闭

宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时,启动宏和关闭宏不会自动运行,而需要在VB中通过命令

xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。

三、 VB与EXCEL的相互勾通:

充分利用EXCEL的启动宏和关闭宏,可以实现VB与EXCEL的相互勾通,其方法如下:

在EXCEL的启动宏中加入一段程序,其功能是在磁盘中写入一个标志文件,同时在关闭宏中加入一段删除此标志文件的程序。VB程序在

执行时通过判断此标志文件存在与否来判断EXCEL是否打开,如果此标志文件存在,表明EXCEL对象正在运行,应该禁止其它程序的运行。

如果此标志文件不存在,表明EXCEL对象已被用户关闭,此时如果要使用EXCEL对象运行,必须重新创建EXCEL对象。

四、举例:

1、在VB中,建立一个FORM,在其上放置两个命令按钮,将Command1的Caption属性改为EXCEL,Command2的Caption属性改为End。然后

在其中输入如下程序:

Dim xlApp As Excel.Application '定义EXCEL类

Dim xlBook As Excel.Workbook '定义工件簿类

Dim xlsheet As Excel.Worksheet '定义工作表类

Private Sub Command1_Click() '打开EXCEL过程

If Dir("D:tempexcel.bz") = "" Then '判断EXCEL是否打开

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类

xlApp.Visible = True '设置EXCEL可见

Set xlBook = xlApp.Workbooks.Open("D:tempbb.xls") '打开EXCEL工作簿

Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表

xlsheet.Activate '激活工作表

xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值

xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏

Else

MsgBox ("EXCEL已打开")

End If

End Sub

Private Sub Command2_Click()

If Dir("D:tempexcel.bz") <> "" Then '由VB关闭EXCEL

xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏

xlBook.Close (True) '关闭EXCEL工作簿

xlApp.Quit '关闭EXCEL

End If

Set xlApp = Nothing '释放EXCEL对象

End

End Sub

2、在D盘根目录上建立一个名为Temp的子目录,在Temp目录下建立一个名为"bb.xls"的EXCEL文件。

3、在"bb.xls"中打开Visual Basic编辑器,在工程窗口中点鼠标键选择插入模块,在模块中输入入下程序存盘:

Sub auto_open()

Open "d:tempexcel.bz" For Output As #1 '写标志文件

Close #1

End Sub

Sub auto_close()

Kill "d:tempexcel.bz" '删除标志文件

End Sub

4、运行VB程序,点击EXCEL按钮可以打开EXCEL系统,打开EXCEL系统后,VB程序和EXCEL分别属两个不同的应用系统,均可同时进行操作,

由于系统加了判断,因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮,则会重新打开

EXCEL。而无论EXCEL打开与否,通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。

★JDE代码查询程序源代码

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim Dm As String

Dim Sm As String

Dim Dw As String

Dim i As Integer

Dim SouS As Object

Private Sub ComCx_Click()

'i = 2

'Do While i <= 10000

'Dm = Trim(xlBook.Worksheets("代码").Cells(i, "A").Value)

'If Dm = Trim(TexDm.Text) Then

'Sm = Trim(xlBook.Worksheets("代码").Cells(i, "B").Value)

'Dw = Trim(xlBook.Worksheets("代码").Cells(i, "D").Value)

'TexSm.Text = Sm & " " & "(" & Dw & ")"

'GoTo 100

' End If

'i = i + 1

'Loop

'TexSm.Text = "没有找到相匹配的信息!"

On Error GoTo 50

i = xlBook.Worksheets("代码").Range("A:A").Find(Trim(TexDm.Text)).Row

If Not i = 0 Then

Dm = Trim(TexDm.Text)

Sm = Trim(xlBook.Worksheets("代码").Cells(i, "B").Value)

Dw = Trim(xlBook.Worksheets("代码").Cells(i, "D").Value)

TexSm.Text = Sm & " " & "(" & Dw & ")"

ComQd.Visible = True

GoTo 100

End If

50

TexSm.Text = "没有找到相匹配的信息!"

100

End Sub

Private Sub ComQc_Click()

TexDm.Text = "请在此输入10位数的代码"

TexSm.Text = ""

Dm = ""

Sm = ""

Dw = ""

ComQd.Visible = False

End Sub

Private Sub ComQd_Click()

xlSheet.Cells(2, "A").Value = Dm

xlSheet.Cells(2, "B").Value = Sm

xlSheet.Cells(2, "C").Value = Dw

xlBook.Save

End Sub

Private Sub ComTc_Click()

xlBook.Close (False)

xlApp.Quit

Set xlApp = Nothing

Set xlBook = Nothing

Set xlSheet = Nothing

End

End Sub

Private Sub Form_Load()

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open(App.Path & "xls合金JDE代码.xls")

xlApp.Visible = False

Set xlSheet = xlBook.Worksheets("确认信息")

End Sub

Private Sub TexDm_DblClick()

TexDm.Text = ""

End Sub

★ select case.... case ... end select 用法:

Select Case ComFgYy1.Text

Case "缺边掉角"

xlsheet.Cells(i, "P").Value = Trim(TexFg1P.Text)

xlsheet.Cells(i, "Q").Value = Trim(TexFg1Kg.Text)

xlsheet.Cells(i, "R").Value = Trim(TexFgQk1.Text)

Case "变形"

xlsheet.Cells(i, "S").Value = Trim(TexFg1P.Text)

xlsheet.Cells(i, "T").Value = Trim(TexFg1Kg.Text)

xlsheet.Cells(i, "U").Value = Trim(TexFgQk1.Text)

Case "表面鼓泡"

xlsheet.Cells(i, "V").Value = Trim(TexFg1P.Text)

xlsheet.Cells(i, "W").Value = Trim(TexFg1Kg.Text)

xlsheet.Cells(i, "X").Value = Trim(TexFgQk1.Text)

Case "尺寸超差"

xlsheet.Cells(i, "Y").Value = Trim(TexFg1P.Text)

xlsheet.Cells(i, "Z").Value = Trim(TexFg1Kg.Text)

xlsheet.Cells(i, "AA").Value = Trim(TexFgQk1.Text)

end select

★ 添加子程序的时候,要在括号里面声明要从主程序引用的变量和对象

Public Sub FangGuo(ByVal i As Integer, ByVal xlapp As Excel.Application, ByVal xlbook As Excel.Workbook, ByVal xlsheet As Excel.Worksheet)

'——————————向下为放过区域——————————————————————

Debug.Print i '即显信息

'————放过1——————

Select Case ComFgYy1.Text

Case "缺边掉角"

xlsheet.Cells(i, "P").Value = Trim(TexFg1P.Text)

xlsheet.Cells(i, "Q").Value = Trim(TexFg1Kg.Text)

xlsheet.Cells(i, "R").Value = Trim(TexFgQk1.Text)

Case "变形"

xlsheet.Cells(i, "S").Value = Trim(TexFg1P.Text)

xlsheet.Cells(i, "T").Value = Trim(TexFg1Kg.Text)

xlsheet.Cells(i, "U").Value = Trim(TexFgQk1.Text)

end select

End Sub

★点击窗口右上角的关闭 是 “unload” 或 “QueryUnload”事件

★子程序改变来自主程序的变量的值:

Private Sub Com1_Click()

dim CfZ as integer

QrCf CfZ

If CfZ = 1 Then

MsgBox ("放过原因或报废原因有重复!" & vbCrLf & "请查看红色标识......")

End If

end sub

Public Sub QrCf(Cf As Integer)

Select Case ComFgYy1.Text

Case ComFgYy2.Text

If ComFgYy1.Text <> "" Then

ComFgYy1.BackColor = &HFF&

ComFgYy2.BackColor = &HFF&

Cf = 1

End If

end select

end sub

运行效果:如果case中Cf=1执行,则CfZ的值变为1,并弹出消息框

★如何判断字符串为是否为数字

判断表达式的运算结果是否为数字,返回 Boolean 值(True or False)。

描述

返回 Boolean 值指明表达式的值是否为数字。

语法

IsNumeric(expression)

expression 参数可以是任意表达式。

VB打开EXCEL的方法 vb.net 打开excel文件
说明

如果整个 expression 被识别为数字,IsNumeric 函数返回 True;否则函数返回 False。 如果 expression 是日期表达式

,IsNumeric 函数返回 False。下面的示例利用 IsNumeric 函数决定变量是否可以作为数值:

Dim MyVar, MyCheck

MyVar = 53 '赋值。

MyCheck = IsNumeric(MyVar) ' 返回 True。

MyVar = "459.95" ' 赋值。

MyCheck = IsNumeric(MyVar) ' 返回True。

MyVar = "45 Help" ' 赋值。

MyCheck = IsNumeric(MyVar) ' 返回 False。

★在frmlogin中设置用户及密码检查功能

Dim LogIn As Boolean

Select Case ComUserName.Text

Case "测试"

If txtPassword.Text = "....." Then

txtUserName.Text = "测试"

LogIn = True

Else

LogIn = False

End If

Case "魏敏"

If txtPassword.Text = "wm" Then

txtUserName.Text = "魏敏"

LogIn = True

Else

LogIn = False

End If

Case "黄选华"

If txtPassword.Text = "hxh" Then

txtUserName.Text = "黄选华"

LogIn = True

Else

LogIn = False

End If

Case "胡丽萍"

If txtPassword.Text = "hlp" Then

txtUserName.Text = "胡丽萍"

LogIn = True

Else

LogIn = False

End If

Case "张岚"

If txtPassword.Text = "zl" Then

txtUserName.Text = "张岚"

LogIn = True

Else

LogIn = False

End If

Case "冯现萍"

If txtPassword.Text = "fxp" Then

txtUserName.Text = "冯现萍"

LogIn = True

Else

LogIn = False

End If

Case "陶学群"

If txtPassword.Text = "txq" Then

txtUserName.Text = "陶学群"

LogIn = True

Else

LogIn = False

End If

Case "陶明艳"

If txtPassword.Text = "tmy" Then

txtUserName.Text = "陶明艳"

LogIn = True

Else

LogIn = False

End If

End Select

★将一个文件复制到另外一个目录,并改变名字

Dim xlFile, xlFileCopy As String

xlFile = App.Path & "xls合金厂产品质检明细表.xls"

xlFileCopy = "C:xlTemp" & "Copy" & Format(Now, "YYYY_MM_DD_HH_MM_SS") & ".xc"

FileCopy xlFile, xlFileCopy

★用format()函数自定义日期/时间格式

★VB读取一个文件的创建日期:

我看网上找到一个,用fso的

Dim file As Variant

Dim fso As Variant

Set fso = CreateObject("Scripting.FileSystemObject")

Set file = fso.GetFile(.filename)

MsgBox vbLf & "创建时间:" & file.DateCreated & _

vbLf & "修改时间:" & file.DateLastModified & _

vbLf & "访问时间:" & file.DateLastAccessed

另外还有一个问题,就是获取文件版本,可以使用

Declare Function GetFileVersionInfo Lib "version.dll" _

Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, _

ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long

但是我对其中的一些参数意思不太明白。

lptstrfilename自然是文件的名字,应该是包括全路径的;后面三个参数是什么意思我就不太懂了,特别的,最后一个类型是any,这是什么东东?

★删除指定位置的普通文件

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

Private Const FILE_ATTRIBUTE_DIRECTORY = &H10

Private Type SYSTEMTIME

wYear As Integer

wMonth As Integer

wDayOfWeek As Integer

wDay As Integer

wHour As Integer

wMinute As Integer

wSecond As Integer

wMilliseconds As Integer

End Type

Private Type FILETIME

dwLowDateTime As Long

dwHighDateTime As Long

End Type

Private Const MAX_PATH = 260

Private Type WIN32_FIND_DATA

dwFileAttributes As Long

ftCreationTime As FILETIME

ftLastAccessTime As FILETIME

ftLastWriteTime As FILETIME

nFileSizeHigh As Long

nFileSizeLow As Long

dwReserved0 As Long

dwReserved1 As Long

cFileName As String * MAX_PATH

cAlternate As String * 14

End Type

Dim Fdata As WIN32_FIND_DATA

Private Sub DelFiles(ByVal sPath As String, ByVal xD As String)

On Error Resume Next

Dim R1 As Long, R2 As Long, TmpTime As String

Dim SYSTM As SYSTEMTIME

R1 = FindFirstFile(sPath & "*", Fdata)

If (Fdata.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = False Then

FileTimeToSystemTime Fdata.ftCreationTime, SYSTM

TmpTime = CStr(SYSTM.wYear) & "-" & CStr(SYSTM.wMonth) & "-" & CStr(SYSTM.wDay) & " " & CStr(SYSTM.wHour) & ":" & CStr(SYSTM.wMinute) & ":" & CStr(SYSTM.wSecond)

If CDate(TmpTime) < CDate(xD) Then Kill sPath & StrF(Fdata.cFileName)

End If

Do

R2 = FindNextFile(R1, Fdata)

If R2 = 0 Then Exit Do

If (Fdata.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = False Then

FileTimeToSystemTime Fdata.ftCreationTime, SYSTM

TmpTime = CStr(SYSTM.wYear) & "-" & CStr(SYSTM.wMonth) & "-" & CStr(SYSTM.wDay) & " " & CStr(SYSTM.wHour) & ":" & CStr(SYSTM.wMinute) & ":" & CStr(SYSTM.wSecond)

If CDate(TmpTime) < CDate(xD) Then Kill sPath & StrF(Fdata.cFileName)

End If

DoEvents

Loop

End Sub

Private Function StrF(ByVal S As String) As String

StrF = Left(S, InStr(S, Chr(0)) - 1)

End Function

用法:(删除“c:xltemp”这里所有的10天前的文件)

Private Sub Command1_Click()

Dim NowDate As String

NowDate = Str(Date - 10)

DelFiles "c:xltemp", NowDate

End Sub

(若需要删除指定扩展名的文件,将 R1 = FindFirstFile(sPath & "*", Fdata)这一行里面的 “*” 改成 “*.扩展名”)

(另外有一点,在这个程序里面,文件的创建时间是精确到秒的,

你的时间只用了date-10,只有日期没时间,

比如2010-3-10号,

只能删除10号之前的。10号当天的删除不了。)

★VB日期选择边框

网上有不少做日期选择框的方法或控件,搞得非常复杂。

其实VB6自带有日期选择框的:

菜单:工具,部件

把mcrosoft windows common controls-2 6.0(sp6)

得到的DTPicker就是DateTimePicker

一般就用 DTPicker控件

这就是你想要的东西了

★VB自带的删除文件功能

Kill filename

★建立连接用ADO对象很方便

首先添加“工程-引用”:Microsoft ActiveX Objects 6.0 Library

dim cn as new connection

dim rs as new recordset

cn.open "数据库连接串"

set rs=cn.execute("select * from tab1")

debug.print rs.fields("字段名")

("数据库连接串"这段内容,可以用一个udl文件生成,用记事本创建一个没有内容的扩展名为udl文件,双击打开,按上边的提示配置好,再用记事本打开,就可以找到需要的那段字符串了。)

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

cn.ConnectionString = "Provider=MSDASQL.1;Password=.....;Persist Security Info=True;User ID=kio;Data Source=SQLDb;Initial Catalog=DataTest"

cn.Open

rs.Open "[dbo].[ZJMX]", cn, 1, 3

rs.AddNew

rs("登陆时间") = Text1.Text

rs("用户名") = Text2.Text

rs.Update

rs.Clone

cn.Close

End Sub

★将用户名和密码存于数据库中的数据表“用户设置”中,下面是密码验证过程:

Cn.ConnectionString = "Provider=SQLOLEDB.1;Password=.....;Persist Security Info=True;User ID=carbide;Initial Catalog=Carbide;Data Source=172.16.13.16SQLEXPRESS"

Cn.Open

Dim SqlStr As String

SqlStr = "select * from [dbo].[用户设置] where [UN]='" & txtUserName.Text & "' And [PW]='" & txtPassword.Text & "'"

Set Rs = Cn.Execute(SqlStr)

If Not Rs.EOF Then

Rs.Close

Cn.Close

OK = True

Me.Hide

Else

MsgBox "密码错误,再试一次!", , "登录"

txtPassword.SetFocus

txtPassword.SelStart = 0

txtPassword.SelLength = Len(txtPassword.Text)

Rs.Close

Cn.Close

End If

★SQL 查询并取值的问题

Cn.ConnectionString = "Provider=SQLOLEDB.1;Password=.....;Persist Security Info=True;User ID=carbide;Initial Catalog=Carbide;Data Source=172.16.13.16SQLEXPRESS"

Cn.Open

Dim SqlStr As String

SqlStr = "select * from [dbo].[用户设置] where [UN]='" & txtUserName.Text & "' And [PW]='" & txtPassword.Text & "'"

Set Rs = Cn.Execute(SqlStr)

If Not Rs.EOF Then

Dlr = Rs("姓名").Value

DlID = txtUserName.Text

Rs.Close

Cn.Close

end if

★如何判断字段值为空

If IsNull(Rs(FgP)) = True And IsNull(Rs(FgKg)) = True Then

y = y + 1

GoTo 11

Else

ComFgYy(x).Text = Yy(y)

TexFgP(x).Text = Rs(FgP).Value

TexFgKg(x).Text = Rs(FgKg).Value

TexFgQk(x).Text = Rs(FgQk).Value

y = y + 1

End If

★更改已有记录

Cn.Open

Dim SqlStr As String

SqlStr = "select * from [dbo].[产品质检明细] where [记录号]=" & LshCx

Rs.Open SqlStr, Cn, 1, 3

Rs("记录号") = LshCx

Rs("录入时间") = Now

Rs("检验时间") = DTPJyrq.Value

Rs.update

★删除已有记录

Cn.Open

Dim SqlStr As String

SqlStr = "delete from [dbo].[产品质检明细] where [记录号]=" & LshCx

Rs.Open SqlStr, Cn, 1, 3

Cn.Close

★SQL复制记录

INSERT INTO `table` SELECT * FROM `table` WHERE id=1;

没有主键时候才可以。。有主键时候就要写上列:

INSERT INTO `table`(`a`,`b`,`c`) SELECT `a`,`b`,`c` FROM `table` WHERE id=1;

补充:如果要插入数据的表比前表字段但是也要插入数据,可以用mysql函数产生栏目填充,例如:ABS(1),TRIM('abc')

UPDATE `table` SET a = !a WHERE id = 1;//布爾值取反

UPDATE `table1`,`table2` SET `table1`.id = `table2`.id WHERE `table1`.id = `table2`.id;//更新

★SQL语句查找空值

select * from 表格 where 字段名 is null

★将SQL查找结果导出到EXCEL

Dim xlApp As New Excel.Application

Dim xlBook As New Excel.Workbook

Dim xlSheet As New Excel.Worksheet

Dim m As Integer, n As Integer

Dim Ran As String

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类

Set xlBook = xlApp.Workbooks.Open("f:softjesendata质检明细100520.xls") '打开EXCEL工作簿

xlApp.Visible = True '设置EXCEL不可见

Set xlSheet = xlBook.Worksheets.Add

ActiveSheet.Name = "产品质日报表" & Format(Now, "YYYY_MM_DD_HH_MM_SS") '打开EXCEL工作表

m = 2

Do While Not Rs.EOF

For n = 0 To Rs.Fields.Count - 1

Ran = x & ":" & x

xlSheet.Cells(1, n + 1) = Rs.Fields(n).Name

xlSheet.Cells(m, n + 1) = Rs(n).Value

Next

Rs.MoveNext

m = m + 1

Loop

Set xlSheet = Nothing

Set xlBook = Nothing

Set xlApp = Nothing

★VB 中 DataGrid 的使用方法

SqlStr = "select * from dbo.代码 where [JDE代码]='" & Trim(Text1(0).Text) & "'"

Cn.CursorLocation = adUseClient '关键语句,有了这句控件才能显示数据集的内容

Cn.Open

'Rs.Open SqlStr, Cn

Set Rs = Cn.Execute(SqlStr)

If Not Rs.EOF Then

Text1(1).Text = Rs("牌号")

Text1(2).Text = Rs("型号")

Text1(3).Text = Rs("单位")

Set DataGrid1.DataSource = Rs '关键语句,将控件和数据集连接起来

'DataGrid1.ClearFields

'DataGrid1.ReBind

Else

MsgBox ("没有找到对应 JDE代码 的信息!")

End If

★ 单击就全选文本框中内容,文本框用到了控件数组(index= 0 to 8)

Private Sub Text1_Click(Index As Integer)

Text1(Index).SelStart = 0

Text1(Index).SelLength = Len(Text1(Index).Text)

End Sub

★在textbox中显示 datagrid 表格中选中单元格所在列的记录

Dim DataBj As Integer '标记表中是否有数据显示, 有为 1 没有 为 0

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

If DataBj = 1 Then

Text1(0).Text = DataGrid1.Columns("JDE代码").Text ' DataGrid1

Text1(1).Text = DataGrid1.Columns("牌号").Text 'rs1("牌号")

Text1(2).Text = DataGrid1.Columns("型号").Text 'rs1("型号")

Text1(3).Text = DataGrid1.Columns("说明").Text 'rs1("说明").Value

Text1(4).Text = DataGrid1.Columns("备注").Text 'rs1("备注").Value

Combo1.Text = DataGrid1.Columns("单位").Text 'rs1("单位")

ID = DataGrid1.Columns("ID").Text 'rs1("ID").Value

End If

注意:DataGrid1_RowColChange 事件在datagrid控件中的内容有改变的时候都会被激活,所以在查询结果显示出来之前该事件就被激活了,会出现好不到记录的提示,为了解决这个问题,需要引入一个变量DataBj 来标记是否已经有查询结果显示在表格中,使当表格中有内容的时候才执行DataGrid1_RowColChange事件中的代码。

★通过SQL语句删除表中重复记录的方法

原理:晒出无重复的记录 将数据导入到另外一个相同的表中(名字不同),再将无重复记录的表的名字改为源表的名字。

INSERT INTO DBO.代码2 ([ID],[JDE代码],[牌号],[型号],[单位],[说明]) SELECT DISTINCT [ID],[JDE代码],[牌号],[型号],[单位],[说明] FROM dbo.代码

★定时任务,使用 Timer控件,在Timer控件的interval属性中设置时间间隔,

单位是 毫秒 (1秒=1000毫秒)

例:Private Sub Timer1_Timer()

rs.Requery

DataGrid1.refresh

End Sub

★如何获得查询结果的 记录条数

X = Rs.RecordCount 'X就是记录的条数

vb中recordcount返回值总是为-1:

这样就没问题rs.open sqlstr,conn,3,2

这样就有问题rs.open sqlstr,conn,1,2

因为conn后第一个数字是1表示指针只能往前,3表示自由指针

使用RecordCount属性可确定Recordset对象中记录的数目。ADO无法确定记录数时,或者如果提供者或游标类型不支持RecordCount,则该属性返回–1。读已关闭的Recordset上的RecordCount属性将产生错误。

如果Recordset对象支持近似定位或书签(即Supports(adApproxPosition)或Supports(adBookmark)各自返回True),不管是否完全填充该值,该值将为Recordset中记录的精确数目。如果Recordset对象不支持近似定位,该属性可能由于必须对所有记录进行检索和计数以返回精确RecordCount值而严重消耗资源。

Recordset对象的游标类型会影响是否能够确定记录的数目。对仅向前游标,RecordCount属性将返回-1,对静态或键集游标返回实际计数,对动态游标取决于数据源返回-1或实际计数。

★关闭当前窗口的代码

Unload Me











  

爱华网本文地址 » http://www.413yy.cn/a/25101012/106389.html

更多阅读

没有起子妙开红酒的方法 红酒.沒起子怎么打开

没有起子妙开红酒的方法——简介现在的生活质量提高了,很多人都喜欢喝点红酒,但有时候找不到起子开红酒,怎么办呢?这里给你们介绍一个妙开红酒的方法。非常的简单易学,而且很省力哦。很抱歉,视频数据暂时无法显示没有起子妙开红酒的方法

声明:《VB打开EXCEL的方法 vb.net 打开excel文件》为网友成熟小男人分享!如侵犯到您的合法权益请联系我们删除