新建 文本文档.txt

与数据库和VB相关联的各种实例参考代码文档

function numadd(a,b) 
sum = cdbl(a)*cdbl(a)+cdbl(b)*cdbl(b) 
end function  求平方和；
VB编程所需代码；

1.数值型函数： 
abs(num): 返回绝对值 
sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 
hex(num): 返回十六进制值 直接表示：&Hxx 最大8位 
oct(num): 返回八进制值 直接表示：&Oxx 最大8位 
sqr(num): 返回平方根 num>0 
int(num): 取整 int(99.8)=99; int(-99.2)=100 
fix(num): 取整 fix(99.8)=99; fix(-99.2)=99 
round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2 
log(num): 取以e为底的对数 num>0 
exp(n): 取e的n次幂 通常用 num^n 
sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num) 


2.字符串函数： 
len(str)：计算字符串长度 中文字符长度也计为一！ 
mid(str,起始字符,[读取长度])：截取字符串中间子字符串 
left(str,nlen)：从左边起截取nlen长度子字符串 
right(str,nlen)：从右边起截取nlen长度子字符串 
Lcase(str)：字符串转成小写 
Ucase(str)：字符串转成大写 
trim(str)：去除字符串两端空格 
Ltrim(str)：去除字符串左侧空格 
Rtrim(str)：去除字符串右侧空格 
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 


注：默认值：起始字符 1；替代次数 不限；比较方法 区分大小写（0） 


InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串 可选参数需同时选 返回起始位置 
InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串 返回起始位置 
space(n)：构造n个空格的字符串 
string(n,str)：构造由n个str第一个字符组成的字符串 
StrReverse(str)：反转字符串 
split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组 可选参数需同时选 


3.数据类型转换函数： 
Cint(str)：转换正数 True -1；False 0；日期 距离1899/12/31天数；时间 上午段 0；下午段 1； 
Cstr(str)：日期 输出格式 yyyy/mm/dd；时间 输出格式 Am/Pm hh:mm:ss 
Clng(str)：与Cin()类似 
Cbool(num)：num不为零 True；反之 False 
Cdate(str)：转换日期格式 0：#Am 12:00:00#；正数 距离1899/12/31天数的日期；浮点数 日期＋小数时间 
Cbyte(num)：num<255 转换为字节 
Csng(str)：转换为单精度数值 
Cdbl(str)：转换为双精度数值 
Ccur(str)：转换为现金格式 


4.时间函数： 
date：取系统当前日期 
time：取系统当前时间 
now：取系统当前时间及日期值 Datetime类型 
timer：取当前时间距离零点秒值，计时器，可计算时间差 
DateAdd(间隔单位,间隔值,日期)：推算相邻日期 
DateDiff(间隔单位,日期一,日期二)：计算时间差 日期二-日期一 
Datepart(间隔单位,日期)：计算日期的间隔单位值 
Dateserial(date)：输出日期值（按序列计算） 
Timeserial(time)：输出时间值（按序列计算） 
Datevalue(datetime)：取出字符串中日期值 
Timevalue(datetime)：取出字符串中时间值 
weekday(date)：计算星期几 
MonthName(date)：输出月分名 
year(datetime)：截取年份 
month(datetime)：截取月份 
day(datetime)：截取日 
hour(datetime)：截取小时 
minute(datetime)：截取分钟 
second(datetime)：截取秒 


5.其它函数： 
Array(unit,..)：动态生成数组 
Asc(str)：输出字符串第一个字符的ASCII码 
Chr(asc)：转换ASCII为字符 Enter：Chr(13)&Chr(10) 
Filter(数组名称,关键字符串,[,包含][,比较方法])： 


将字符串数组中含有关键字符串的元素存成新的数组（默认） [包含]为false则取不包含的元素 
oin(ArrayName)：将数组中元素连成字符串 
Ubound(ArrayName[,维数])：取得数组相应维数的上界 
Lbound(ArrayName[,维数])：取得数组相应维数的下界 一般为0 
Randmize n：启动随机数种子 
Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数 
取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A) 条件（B>A） 

子程序和自定义函数 
Sub StrSubName Function StrFunName(arg[1],..) 
子程序体 函数体 
Exit Sub 中途跳出 Exit Function 中途跳出 
End Sub StrFunName＝value 返回值 
End Function [call] StrSubName 引用子程序 Var=StrFunName(arg[1],..) 引用函数 



 
                  问题1：我想做这么一个程序： 
创建一个EXCEL文件 ，并在里面某位置写入数据（整数） 
需要有选择文件保存路径这样的系统对话框，诸位大侠能给个代码么？最好有注释。 
（我试过直接定义数据类型为Excel.Application，但是根本没有该类型，这是怎么回事？）
项目——添加引用——com——microsoft excel 11.0 object library 

Dim Xls As Excel.Application = New Excel.Application '定义excel应用程序 
Dim Xlsbook As Excel.Workbook '定义工作簿 
Dim Xlssheet As Excel.Worksheet '定义工作表 

Xls.Visible = True '显示excel 程序 
Xlsbook = Xls.Application.Workbooks.Add '添加新工作簿 或exbook=exapp.workbooks.open("路径\文件名")'打开已存在工作薄 
Xlssheet = Xlsbook.Sheets(1) '第1个工作表的控制句柄 
MsgBox("EXCEL档案创建完毕！") 
Xlssheet.Cells(1, 1) = "这是一个创建EXCEL的示例" 
Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框 
Sdlg.FileName = "*.xls" '保存对话框的默认文件名 
Sdlg.Filter = "EXCEL档案(*.Xls)|*.Xls" '过滤器设置 
If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下 
Xlsbook.SaveAs(Sdlg.FileName) '保存文件 
End If 
Xlssheet = Nothing '释放资源 
Xlsbook.Close() '关闭工作簿 
Xlsbook = Nothing '释放资源 
Xls.Quit() '退出excel应用程序 
Xls = Nothing


                            问题2：
如何用VB创建并打开一个EXCLE表格，并编辑其内容。比如向某行某列写入一个字符串。
Dim Application As Object 
Dim WorkBook As Object 
Dim Sheet As Object 

Set Application = CreateObject("Excel.Application") '建立EXCEL对象 
Set WorkBook = Application.Workbooks.Add() '建立一个新的Excel文档 
Set Sheet = WorkBook.Sheets.Add() '建立一个新表单 
Sheet.Cells(1, 1).Value = "Hello,Excel!" '填写表单的第一行第一列的值 
Application.Visible = True 'EXCEL使之可见 


              问题3：vb处理大量Excel数
有若干Excel文件的a2到j2均有不同的数字,均输入到一个Excel文件中并且安输入顺序排列下来,使得该文件a列到j列排列若干Excel文件的a2到j2的不同的数字,现在需要vb编辑一个可以将大量重复的指定位置相同的数据快速导入同一个Excel中的小程序,急需vb的代码或实例,否则此项工作要十分费时又费力啊!!
提问者： guochunhui88 - 秀才 二级 最佳答案
以下给你的是对EXCEL表的一些常用的操作。编你的问题很容易。无非就是一些读表，写表的操作。 
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 

Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook 
Dim xlSheet As Excel.Worksheet 
Private Sub Form_Load() 

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 
Set xlBook = xlApp.Workbooks.Open("c:\a.xls") '打开已经存在的EXCEL工件簿文件 
xlApp.Visible = True '设置EXCEL对象可见（或不可见） 
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表 
xlSheet.Cells(3, 1) = "水涧泉" '给单元格（row,col）赋值 
'获取Excel有效区域的行和列数 
'intLastColNum = objImportSheet.UsedRange.Columns.Count 
'intLastRowNum = objImportSheet.UsedRange.Rows.Count 

If Trim$(xlSheet.Cells(3, 1).Value) <> "" Then 
Text1.Text = xlSheet.Cells(3, 1).Value '读取表格内容 
End If 
xlSheet.Select 
'xlSheet.PrintOut '打印工作表 
xlBook.Close (True) '关闭工作簿 
xlApp.Quit '结束EXCEL对象 
Set xlApp = Nothing '释放xlApp对象 
End Sub 

                   问题4：VB与EXCEL连接问题
 
用VB与EXCEL连接，EXCEL已经手动打开，sheet也已经手动打开，要把VB和EXCEL连接起来，向EXECL表中添加数据。不用add和open方法。（不去管EXCEL文件路径。）是否有这种办法？
问题补充：对于EXCEL表是手动激活哪个就对哪个追加数据。
提问者： Babyface008 - 魔法师 四级 最佳答案
Dim xlsApp 
On Error Resume Next 
Set xlsApp = GetObject(, "excel.application") 
On Error GoTo 0 
If IsEmpty(xlsApp) Then 
MsgBox "excel没打开" 
Exit Sub 
Else 
xlsApp.activesheet.cells(1, 1).Value = "这是一个演示" 
'在这里可以对当前工作表进行其他操作

                    问题5用vb怎么连接SQL数据库
建立酒店餐饮管理信息系统，用VB连接用SQL 建立的数据库。数据库已经建立好了，没有问题，但VB运行登录时出现错误：[DBNETLIB][ConnectionOpen(Connect()).]SQL Server 不存在或拒绝访问。源代码是：Private Sub cmdOK_click() 
Adodc1.RecordSource = "select * from Table_Users where 用户名='" + Trim(Text1.Text) + "'and 密码='" + Trim(Text2.Text) + "'" 
Adodc1.Refresh （显示此处出现错误） 
If Adodc1.Recordset.RecordCount > 0 Then 

strOk = Adodc1.Recordset.Fields("级别") 
If strOk = "系统操作员" Then 
frm_main.gkgl.Enabled = True 
frm_main.gkxx.Enabled = True 
frm_main.gkxxcx.Enabled = True 
frm_main.yggl.Enabled = True 
frm_main.ygxxgl.Enabled = True 
frm_main.ygxxcx.Enabled = True 
frm_main.yygl.Enabled = True 
frm_main.ycgl.Enabled = True 
frm_main.frm_dcd.Enabled = True 
frm_main.jzgl.Enabled = True 
frm_main.cygl.Enabled = True 
frm_main.cd.Enabled = True 
frm_main.jclb.Enabled = True 
frm_main.cxsz.Enabled = True 
frm_main.jcsm.Enabled = True 
frm_main.ftgl.Enabled = True 
frm_main.ftsz.Enabled = True 
frm_main.bmsz.Enabled = True 
frm_main.lbsz.Enabled = True 
frm_main.xffs.Enabled = True 
frm_main.qxgl.Enabled = True 
frm_main.yhgl.Enabled = True 
frm_main.mmsz.Enabled = True 
frm_main.qxsz.Enabled = True 
frm_main.sjbf.Enabled = True 
frm_main.sjhf.Enabled = True 

ElseIf strOk = "普通操作员" Then 
frm_main.gkgl.Enabled = True 
frm_main.gkxx.Enabled = True 
frm_main.gkxxcx.Enabled = True 
frm_main.yggl.Enabled = True 
frm_main.ygxxgl.Enabled = True 
frm_main.ygxxcx.Enabled = True 
frm_main.yygl.Enabled = True 
frm_main.ycgl.Enabled = True 
frm_main.frm_dcd.Enabled = True 
frm_main.jzgl.Enabled = True 
frm_main.cygl.Enabled = True 
frm_main.cd.Enabled = True 
frm_main.jclb.Enabled = True 
frm_main.cxsz.Enabled = True 
frm_main.jcsm.Enabled = True 
frm_main.ftgl.Enabled = True 
frm_main.ftsz.Enabled = True 
frm_main.bmsz.Enabled = True 
frm_main.lbsz.Enabled = True 
frm_main.xffs.Enabled = True 
frm_main.qxgl.Enabled = False 
frm_main.yhgl.Enabled = False 
frm_main.mmsz.Enabled = False 
frm_main.qxsz.Enabled = False 
frm_main.sjbf.Enabled = False 
frm_main.sjhf.Enabled = False 

End If 
Unload Me 
Load frm_main 


frm_main.Show 
Else 
MsgBox "输入错误，请重新输入！" 
Text1.Text = "" 
Text2.Text = "" 
Text1.SetFocus 
Exit Sub 

End If 

End Sub
解决方案：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\你数据库的名称" 

Dim strquery As String 
strquery = "select * from Table_Users where 用户名='" & Trim(Text1.Text) & "'and 密码= '" & Trim(Text2.Text) & "'" 
Adodc1.RecordSource = strquery 
Adodc1.Refresh