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连接access数据库求这个源代码
点击【工程】-【引用】在对话框勾选下图最后二项（注意：你必须在对话框找到后勾选，才能显示下面的图形），这样就引用了ADO数据库连接。
下面是一个简单的数据库连接程序，其实VB与VBScript基本相似（VBScript是VB的精简程序），但你需要特定网页的数据库连接代码，估计只能求助这个网站的管理员了。
文章到此结束，如果本次分享的vb源码论坛和中国vb论坛的问题解决了您的问题，那么我们由衷的感到高兴！