关于一道数据库VBA编程
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Persist Security Info = False;extended properties='Excel 8.0;HDR=YES;IMEX=0';Data Source=“各科成绩表.xls"
If conn.State = adStateOpen Then
sSql = "select * from [sheet1$] where 姓名 like '" & str1 & "' and 成绩 like '" & str2 & "'
rs.Open sSql, conn, 1, 1
If rs.BOF And rs.EOF Then
。。。。。。
首先用VBA控件画好窗体，连接成绩表，再执行相应的操作。。。
因为，dateserial是内置函数所以在立即窗口，输入下面的，然后按 回车 --
?DateSerial(2008 - 1, 8 - 2, 0)
你好，
首先，
你的错误行为：
dimx% , y%, z%, min%
正确写法应为：
dim x%, y%, z%, min%
其次，你的逻辑有问题，具体你可以再测一下。
下面给出一个通用的方法，以供参考：
注：请把 GetMin 方法放到模块中。
Public Function GetMin(ParamArray Numbers() As Variant) As Variant
Dim varMin As Variant
Dim lngLoop As Long
On Error GoTo ERR_HANDLER
' 假设传入的变体数组的第一个成员最小.
varMin = Numbers(LBound(Numbers))
' /* 从变体数组的第二个成员开始循环到最后一个成员. */
For lngLoop = LBound(Numbers) + 1 To UBound(Numbers)
If Numbers(lngLoop) < varMin Then
varMin = Numbers(lngLoop)
End If
Next
GetMin = varMin
Exit Function
ERR_HANDLER:
GetMin = "Error"
End Function
窗体代码为：
Private Sub Command8_Click()
Text4.SetFocus
Text4.Text = GetMin(Text1.Value, Text2.Value, Text3.Value)
End Sub
下图是三个数 7746.12、632.79、98236.578 的运行结果：
VBA算编程吗?Access是怎样创建数据库的?是在表格里手动收入信息吗...
答：1）VBA是Visual Basic的宏语言版本，它是Microsoft Office内置的编程语言，Excel、Word、ACCESS各自都有自己的专用VBA，它们之间可以互相引用。用VBA编程写应用程序当然算编程了。2）创建ACCESS数据库通常是手动创建。如果您的电脑安装了Microsoft Office Access可以这样创建ACCESS数据库 开始——程序——Microsoft...
vba编程的利与弊
答：vba是微软内嵌在office中的脚本语言，具有简单灵活功能强大的特点，适合在office中编写宏来简化操作，本人曾经用vba写出可以自动去sql数据库数据制作表格并自动存档的宏，很实用，不过作为脚本语言，vba不适合开发大型软件工程，只适合简单的数据处理，文档编辑的简化工作 ...
在Excel中取得某列最后一行的VBA代码怎么写(各列行数不同)?
答：excel2007 VBA编程怎么取得某一行的最大有效列数？ 假如是i行： cells(i,columns.count).end(xltoletf).column 求老师指教：vba怎么统计excel某一行最后一列的列数？ 不用循环，假设是第15行，最后一列是： Cells(15, Columns.Count).End(xlToLeft).Column Excel 如何通过VBA找出最后一行数...
excel用VBA编程做表格
答：Sub usa()Dim BoR, WokeRDim WorkLike, Area, Weight, AllArea, AllWeight, AllBoDim LikeID(), LikeIDst(), LikeIDwi()ReDim LikeID(9)LikeIDst() = Array(1, 3, 5, 9, 13, 17, 19, 20, 21, 24)LikeIDwi() = Array(2, 2, 2, 4, 4, 2, 1, 1, 3, 3)For j = ...
excel VBA 编程
答：MyPath = "E:\特设类\档案管理\数据库\锅炉清单"MyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> ""If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1 With Workbooks(1).ActiveSheet...
VBA编程的问题
答：'将数据填入FGH列 Cells(targetrow, 6).Value = ActiveCell.Offset(1, -1).Value Cells(targetrow, 7).Value = mon5daver Cells(targetrow, 8).Value = monaver targetrow = targetrow + 1 countday = 0 montotal = 0 monchange = False Loop countday = countday + 1 montotal = ...
VBA 要写一个在数据库查询的代码,要如何修改才是正确的写法
答：.FindFirst "工单 du编号zhi='"& TextBox118.Value & "'"& "AND 物料dao编号 OR 替代物料3 OR 替代物料2 LIKE '%"& TextBox40.Value & "%'"AND前少了回空格是最答主要的
Excel VBA从入门到精通的内容简介
答：第四篇是VBA高级应用篇，主要内容包括自定义《Excel VBA从入门到精通(第2版)》 2010的用户界面、工作表控件、界面设计、XML与VBA、加载宏和数据库编程等；第五篇是综合实例与面试问答篇，主要讲解了成绩管理系统和日程安排表两个综合实例，并提供了30多个近几年各大公司经常考察的面试题。《Excel VBA...
关于excel VBA编程问题!
答：供参考 Private Sub CommandButton1_Click()Dim S1 As String, S2 As String, S3 As String, C As Range, iRow As Integer S1 = TextBox1.Text S2 = TextBox2.Text S3 = TextBox3.Text If S1 = "" Then Exit Sub Set C = Range("A:A").Find(what:=S1, lookat:=xlWhole)If C...
Excel VBA 编程小白求帮忙,求个代码
答：假设 表一 为"A表" 表二为 "B表"，自动添加2个辅助列，不同金额分别在两个表相应的位置成对标为1，2，3，。。。 直到所有的A表数据与B表核对完成。代码放在 ThisWorkbook 或”模块“中 Sub 对比数据()ThisWorkbook.Activate Dim shtA As Object, shtB As Object Dim rngCLA As Range, rng...
