vb源码 vb代码大全
大家好，今天小编来为大家解答vb源码这个问题，vb代码大全很多人还不知道，现在让我们一起来看看吧！
vb如何连接sql数据库,求源码
Dim conn As New ADODB.Connection'创建一个 Connection实例，在这里使用New等于将Dim和Set合并为一段代码执行
Dim rs As ADODB.Recordset'创建一个 Recordset实例，不使用New是因为，经常需要重复使用Set，因此没必要在这里使用
Dim CnStr As String, Sql As String'创建两个字符串变量分别存放两个集合的SQL语句代码段
1、装载数据库(不属于Recordset集合)
=============
Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$
'以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码
FileName= App.Path&"\'数据库名'"
DbIp="数据库地址"
DbName="数据库名"
DbUser="数据操作员用户名"
DbPw="操作员密码"
'以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量
'1)连接Access数据库:
'-------------------
CnStr="PROVIDER=microsoft.jet.oledb.3.51;persist security info=false;data source="& FileName&";Jet OLEDB:Database Password="& DbPw
'2)连接Oracle数据库:
'-------------------
CnStr="PROVIDER=MSDAORA.1;Password="& DbPw&";User ID="& DbUser&";Data Source="& FileName&";Persist Security Info=True"
'其中:
'PASSWORD:密码
'User ID:用户号
'Data Source:数据库名
'Persist Security Info:
'Provider:
'3)连接VF的DBF库:
'----------------
CnStr="PROVIDER=MSDASQL.1;Persist Security Info=False;Driver={Microsoft Visual FoxPro Driver};UID="& DbUser&";SourceDB="& FileName&
";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"
'4)连接SQL的数据库
'------------------
CnStr="PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid="& DbUser&";pwd="& DbPw&";DRIVER=SQL Server;DATABASE="& DbName&";WSID=GQSOFT;SERVER="&
DbIP
'也可以使用这段简易代码 CnStr="Provider=SQLOLEDB;Data Source="& DbIp&";DATABASE="& DbName&";UID="& DbUser&";pwd="& DbPw
Conn.Open cnstr'使用 Connection集合的 Open方法与数据库建立连接
2、Recordset集合的常用方法
==========================
'1)打开一个表
'------------
Sql="select* from表名"'SQL查询语句
Set rs= New ADODB.Recordset'新建一个实例
rs.Open Sql, conn'使用 Open方法打开数据库中的一个表
'注意，这种打开方式只能使用 rs.MoveNext（即，向后移动行坐标）而不能像其他方向，并且不能修改数据内容
'
'rs.Open Sql, conn，1'虽然只加了个“1”，但这种方法可以向任何方向移动行坐标。
'
'以下参数代表了这个可选值的含义
'0= adOpenForwardOnly（默认值）打开仅向前类型游标。
'1= adOpenKeyset打开键集类型游标。
'2= adOpenDynamic打开动态类型游标。
'3= adOpenStatic打开静态类型游标。
'
'虽然使用以上方法可以可以实现行坐标（游标）的任意移动，但是仍然无法写入数据。因此需要进一步的对Open方法进行完善
'rs.Open Sql, conn, 1, 3'后面的3是确定读写权限的
'以下参数代表了这个可选值的含义
'1= adLockReadOnly（默认值）只读—不能改变数据。
'2= adLockPessimistic保守式锁定（逐个）—在编辑时立即锁定数据源的记录。
'3= adLockOptimistic开放式锁定（逐个）—只在调用 Update方法时才锁定记录。
'4= adLockBatchOptimistic开放式批更新—用于批更新模式（与立即更新模式相对）。
'
'2)读写数据
'----------
'增加一行记录并对新记录的内容进行修改并保存可以如下写法
rs.AddNew'增加一行记录
rs("...")="..."'数据读写操作
...
rs.UpDate'保存写入资料，如果使用只读权限，则不能使用这个方法
rs.Close'这个方法用来关闭你所代开的表，如果不使用这个方法也可以，但是数据库仍然认为你在对标进行锁定，可造成数据库负担过重
2、对数据进行筛选和排序
=======================
Sql="select* from表名"'SQL查询语句
'以上为打开一个表的所有内容
Sql="select top 50* from表名"'SQL查询语句
'以上为只打开前50行的记录
Sql="select top 50列名1,列名2,列名5 from表名"'SQL查询语句
'以上为只打开前50行的记录，并且只打开第1、2、5列数据
Sql="select* from表名 where列名1='"&字段&"'"'SQL查询语句
'以上为一个简单的筛选，表示打开的内容必须符合[列名1='"&字段&"'"]的内容
'需要注意的是，数据库列的类型必须匹配，比如字符串类型需要以单引号括起
'而数字类型则不能用单引号括起
'另外SQL语句还支持通配符，例如列名1 like'%"&字段&"%'"表示包含[字段]
'在表达式中的匹配
'? _（下划线）任何单一字符
'* or%零个或多个字符
'#任何单一数字（0— 9）
'[charlist]任何在字符表中的单一字符
'[!charlist]任何不在字符表中的单一字符
'注：根据数据库的不同?、_和*、%的应用有所差别，比如SQL只使用%和 _分别代表多个字符和单一字符
Sql="select* from表名 where列名1='"&字段&"' ORDER BY字段1 ASC"'对查询结果进行升序排列
Sql="select* from表名 where列名1='"&字段&"' ORDER BY字段1 DESC"'对查询结果进行降序排列
Sql="select* from表名 where列名1='"&字段&"' ORDER BY字段1 DESC, ORDER BY字段2 DESC"'对查询结果进行多维降序排列（速度奇慢，不推荐使用）
3、Recordset集合的常用属性方法
==============================
rs.BOF'是否游标在最上边
rs.EOF'是否游标在最下边
rs.RecordCount'记录集的行数（如果使用像前类型的游标，可能返回不准确）
rs.AddNew'新建一行记录
rs.Update'保存当前行被修改的记录
rs.Delete'删除当前行
rs.Close'关闭记录集
4、Fields集合的一些属性的解释
=============================
'以下为简写，正常情况需要rs.Fileds.。。。但是Fields属于Recordset的一个默认集合，因此可以省略
rs()'括号内可以是列名也可以是列的序号例如：rs("姓名")、rs(3)都是是可以的
rs(3).Name'返回列名
rs(3).Type'返回列的类型
rs(3).Value'返回当前行的值
rs.Fields.Count'返回列数
我想要一个计算生辰八字的vb语言源码
这个是有计算方法的，只要你有计算公式我就可以计算出来的。但是前提你要有计算公式才行。
'公历转农历模块
'//农历数据定义//
'先以 H2B函数还原成长度为 18的字符串，其定义如下：
'前12个字节代表1-12月：1为大月，0为小月；压缩成十六进制(1-3位)
'第13位为闰月的情况，1为大月30天，0为小月29天；(4位)
'第14位为闰月的月份，如果不是闰月为0，否则给出月份(5位)
'最后4位为当年农历新年的公历日期，如0131代表1月31日；当作数值转十六进制(6-7位)
'农历常量(1899~2100，共202年）
Private Const ylData="AB500D2,4BD0883," _
&"4AE00DB,A5700D0,54D0581,D2600D8,D9500CC,655147D,56A00D5,9AD00CA,55D027A,4AE00D2," _
&"A5B0682,A4D00DA,D2500CE,D25157E,B5500D6,56A00CC,ADA027B,95B00D3,49717C9,49B00DC," _
&"A4B00D0,B4B0580,6A500D8,6D400CD,AB5147C,2B600D5,95700CA,52F027B,49700D2,6560682," _
&"D4A00D9,EA500CE,6A9157E,5AD00D6,2B600CC,86E137C,92E00D3,C8D1783,C9500DB,D4A00D0," _
&"D8A167F,B5500D7,56A00CD,A5B147D,25D00D5,92D00CA,D2B027A,A9500D2,B550781,6CA00D9," _
&"B5500CE,535157F,4DA00D6,A5B00CB,457037C,52B00D4,A9A0883,E9500DA,6AA00D0,AEA0680," _
&"AB500D7,4B600CD,AAE047D,A5700D5,52600CA,F260379,D9500D1,5B50782,56A00D9,96D00CE," _
&"4DD057F,4AD00D7,A4D00CB,D4D047B,D2500D3,D550883,B5400DA,B6A00CF,95A1680,95B00D8," _
&"49B00CD,A97047D,A4B00D5,B270ACA,6A500DC,6D400D1,AF40681,AB600D9,93700CE,4AF057F," _
&"49700D7,64B00CC,74A037B,EA500D2,6B50883,5AC00DB,AB600CF,96D0580,92E00D8,C9600CD," _
&"D95047C,D4A00D4,DA500C9,755027A,56A00D1,ABB0781,25D00DA,92D00CF,CAB057E,A9500D6," _
&"B4A00CB,BAA047B,B5500D2,55D0983,4BA00DB,A5B00D0,5171680,52B00D8,A9300CD,795047D," _
&"6AA00D4,AD500C9,5B5027A,4B600D2,96E0681,A4E00D9,D2600CE,EA6057E,D5300D5,5AA00CB," _
&"76A037B,96D00D3,4AB0B83,4AD00DB,A4D00D0,D0B1680,D2500D7,D5200CC,DD4057C,B5A00D4," _
&"56D00C9,55B027A,49B00D2,A570782,A4B00D9,AA500CE,B25157E,6D200D6,ADA00CA,4B6137B," _
&"93700D3,49F08C9,49700DB,64B00D0,68A1680,EA500D7,6AA00CC,A6C147C,AAE00D4,92E00CA," _
&"D2E0379,C9600D1,D550781,D4A00D9,DA400CD,5D5057E,56A00D6,A6C00CB,55D047B,52D00D3," _
&"A9B0883,A9500DB,B4A00CF,B6A067F,AD500D7,55A00CD,ABA047C,A5A00D4,52B00CA,B27037A," _
&"69300D1,7330781,6AA00D9,AD500CE,4B5157E,4B600D6,A5700CB,54E047C,D1600D2,E960882," _
&"D5200DA,DAA00CF,6AA167F,56D00D7,4AE00CD,A9D047D,A2D00D4,D1500C9,F250279,D5200D1"
Private Const ylMd0="初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五" _
&"十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十"
Private Const ylMn0="正二三四五六七八九十冬腊"
Private Const ylTianGan0="甲乙丙丁戊已庚辛壬癸"
Private Const ylDiZhi0="子丑寅卯辰巳午未申酉戌亥"
Private Const ylShu0="鼠牛虎兔龙蛇马羊猴鸡狗猪"
'公历日期转农历
Function GetYLDate(ByVal strDate As String) As String
On Error GoTo aErr
If Not IsDate(strDate) Then Exit Function
Dim setDate As Date, tYear As Integer, tMonth As Integer, tDay As Integer
setDate= CDate(strDate)
tYear= Year(setDate): tMonth= Month(setDate): tDay= Day(setDate)
'如果不是有效有日期，退出
If tYear> 2100 Or tYear< 1900 Then Exit Function
Dim daList() As String* 18, conDate As Date, thisMonths As String
Dim AddYear As Integer, AddMonth As Integer, AddDay As Integer, getDay As Integer
Dim YLyear As String, YLShuXing As String
Dim dd0 As String, mm0 As String, ganzhi(0 To 59) As String* 2
Dim RunYue As Boolean, RunYue1 As Integer, mDays As Integer, i As Integer
'加载2年内的农历数据
ReDim daList(tYear- 1 To tYear)
daList(tYear- 1)= H2B(Mid(ylData,(tYear- 1900)* 8+ 1, 7))
daList(tYear)= H2B(Mid(ylData,(tYear- 1900+ 1)* 8+ 1, 7))
AddYear= tYear
initYL:
AddMonth= CInt(Mid(daList(AddYear), 15, 2))
AddDay= CInt(Mid(daList(AddYear), 17, 2))
conDate= DateSerial(AddYear, AddMonth, AddDay)'农历新年日期
getDay= DateDiff("d", conDate, setDate)+ 1'相差天数
If getDay< 1 Then AddYear= AddYear- 1: GoTo initYL
thisMonths= Left(daList(AddYear), 14)
RunYue1= Val("&H"& Right(thisMonths, 1))'闰月月份
If RunYue1> 0 Then'有闰月
thisMonths= Left(thisMonths, RunYue1)& Mid(thisMonths, 13, 1)& Mid(thisMonths, RunYue1+ 1)
End If
thisMonths= Left(thisMonths, 13)
For i= 1 To 13'计算天数
mDays= 29+ CInt(Mid(thisMonths, i, 1))
If getDay> mDays Then
getDay= getDay- mDays
Else
If RunYue1> 0 Then
If i= RunYue1+ 1 Then RunYue= True
If i> RunYue1 Then i= i- 1
End If
AddMonth= i
AddDay= getDay
Exit For
End If
Next
dd0= Mid(ylMd0,(AddDay- 1)* 2+ 1, 2)
mm0= Mid(ylMn0, AddMonth, 1)+"月"
For i= 0 To 59
ganzhi(i)= Mid(ylTianGan0,(i Mod 10)+ 1, 1)+ Mid(ylDiZhi0,(i Mod 12)+ 1, 1)
Next i
YLyear= ganzhi((AddYear- 4) Mod 60)
YLShuXing= Mid(ylShu0,((AddYear- 4) Mod 12)+ 1, 1)
If RunYue Then mm0="闰"& mm0
GetYLDate="农历"& YLyear&"("& YLShuXing&")年"& mm0& dd0
aErr:
End Function
'农历转公历日期
'secondMonth为真，则天示当 tMonth是闰月时，取第二个月
Function GetDate(ByVal tYear As Integer, tMonth As Integer, tDay As Integer, Optional secondMonth As Boolean= False) As String
On Error GoTo aErr
If tYear> 2100 Or tYear< 1899 Or tMonth> 12 Or tMonth< 1 Or tDay> 30 Or tDay< 1 Then Exit Function
Dim thisMonths As String, ylNewYear As Date, toMonth As Integer
Dim mDays As Integer, RunYue1 As Integer, i As Integer
thisMonths= H2B(Mid(ylData,(tYear- 1899)* 8+ 1, 7))
If tDay> 29+ CInt(Mid(thisMonths, tMonth, 1)) Then Exit Function
ylNewYear= DateSerial(tYear, CInt(Mid(thisMonths, 15, 2)), CInt(Mid(thisMonths, 17, 2)))'农历新年日期
thisMonths= Left(thisMonths, 14)
RunYue1= Val("&H"& Right(thisMonths, 1))'闰月月份
toMonth= tMonth- 1
If RunYue1> 0 Then'有闰月
thisMonths= Left(thisMonths, RunYue1)& Mid(thisMonths, 13, 1)& Mid(thisMonths, RunYue1+ 1)
If tMonth> RunYue1 Or(secondMonth And tMonth= RunYue1) Then toMonth= tMonth
End If
thisMonths= Left(thisMonths, 13)
mDays= 0
For i= 1 To toMonth
mDays= mDays+ 29+ CInt(Mid(thisMonths, i, 1))
Next
mDays= mDays+ tDay
GetDate= ylNewYear+ mDays- 1
aErr:
End Function
'将压缩的阴历字符还原
Private Function H2B(ByVal strHex As String) As String
Dim i As Integer, i1 As Integer, tmpV As String
Const hStr="0123456789ABCDEF"
Const bStr="0000000100100011010001010110011110001001101010111100110111101111"
tmpV= UCase(Left(strHex, 3))
'十六进制转二进制
For i= 1 To Len(tmpV)
i1= InStr(hStr, Mid(tmpV, i, 1))
H2B= H2B& Mid(bStr,(i1- 1)* 4+ 1, 4)
Next
H2B= H2B& Mid(strHex, 4, 2)
'十六进制转十进制
H2B= H2B&"0"& CStr(Val("&H"& Right(strHex, 2)))
End Function
Private Sub Command1_Click()
Label1.Caption= GetYLDate(Text1.Text)
End Sub
vb程序设计是什么
*vb是Visual Basic的简称。
是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言。
可用于开发 Windows环境下的各类应用程序。它简单易学、效率高，且功能强大可以与 Windows专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。
*VB的特点
1．面向对象
VB采用了面向对象设计思想，它基本思路是把复杂设计问题分解为个个能够完成独立功能——相对
简单对象集合。所谓“对象”就是个可操作实体如窗体、窗体中命令按钮、标签、文本框等面向对
象编程就好像搭积木样员可根据和界面设计要求直接在屏幕上“画\"出窗口、菜单、按钮等区别
类型对象并为每个对象设置属性。
2．事件驱动
在Windows环境下是以事件驱动方式运行每个对象的都能响应多个区别事件，每个事件都能驱动段
代码——事件过程该代码决定了对象功能通常称这种机制为事件驱动事件可由用户操作触发也可
以由系统或应用触发例如单击个命令按钮就触发了按钮Click(单击)事件该事件中代码就会被执行
若用户未进行任何操作(未触发事件)则就处于等待状态整个应用就是由彼此独立事件过程构成
3．软件Software集成式开发
VB为编程提供了个集成开发环境在这个环境中编程者可设计界面、编写代码、调试直至把应
用编译成可在Windows中运行可执行文件并为它生成安装VB集成开发环境为编程者提供了很大方便
4．结构化设计语言
VB具有丰富数据类型是种符合结构化设计思想语言而且简单易学此外作为种设计语言VB还有
许多独到的处
5．强大数据库访问功能
VB利用数据Control控件可以访问多种数据库VB 6．O提供ADOControl控件不但可以用最少代
码实现数据库操作和控制也可以取代DataControl控件和RDOControl控件
6．支持对象链接和嵌入技术
VB核心是对对象链接和嵌入(OLE)技术支持它是访问所有对象种思路方法利用OLE技术能够开
发集声音、图像、动画、字处理、Web等对象于体
7．网络功能
VB 6．O提供了DltTML(Dynamic}tTML)设计工具利用这种技术可以动态创建和编辑Web页面使
用户在VB中开发多功能网络应用软件Software
8．多个应用向导
VB提供了多种向导如应用向导、安装向导、数据对象向导和数据窗体向导通过它们可以快速
地创建区别类型、区别功能应用
9．支持动态交换、动态链接技术．
通过动态数据交换(DDE)编程技术VB开发应用能和其他Windows应用的间建立数据通信通过动态
链接库技术在VB中可方便地用C语言或汇编语言编写也可Windows应用接口(．API)
lO．联机帮助功能
在VB中利用帮助菜单和F1功能键用户可随时方便地得到所需要帮助信息VB帮助窗口中显示了有
关举例代码通过复制、粘贴操作可获取大量举例代码为用户学习和使用提供方便
*vb编程基本概念
可以说是所有编程软件的通用概念，希望大家好好看下。如何去进行编程？先给自己一个明确的步骤，才能更好的完成代码编写工作，程序编写是必须很严谨的，这样我们才能编写出完整的程序。
1、机器语言：对于计算机本身来说，它只能接受和处理由0和1代码构成的二进制指令或数据，
由于这种形式的指令是面向机器的，因此也称为“机器语言”。
2、源程序：我们把由高级语言编写的程序称为源程序。
3、目标程序：二进制代码边式的程序称为“目标程序”。
4、编译程序：如何把源程序转换成机器能够接受的目标程序，软件工作者编制了一系列的软件，
通过这些软件可以把用户按规定语法写出的语句一一翻译成二进制的机器指令。这种具有翻译
功能的软件称为“编译程序”。
5、程序设计一般包含以下几个部分
（1）确定数据结构
（2）确定算法
（3）编码
（4）在计算机上调整程序
（5）整理并写出文档资料
6、算法是指为解决某个特定问题而采取的确定且有限的步骤。一个算法应当具有以下五个特点：
（1）有穷性：一个算法应包含有限个操作步骤
（2）确定性：算法中每一条指令必须有确切的含义，不能有二义性，对于相同的输入必能得出相同的执行结果
（3）可行性：算法中指定的操作，都可以通过已经实现的基本运算执行有限次后实现
（4）有零个或多个输入
（5）有一个或多个输出
参考：
好了，关于vb源码和vb代码大全的问题到这里结束啦，希望可以解决您的问题哈！