VB.NET通过调用模块怎么建立access数据库? 如何建立VB的Access数据库连接模块,怎么调用这个模块!
VB\u5982\u4f55\u8c03\u7528Access\u6570\u636e\u5e93\uff1f\u9996\u5148,\u6211\u4eec\u9700\u8981\u5f15\u7528ADO.\u5177\u4f53\u7684\u65b9\u6cd5\u662f,\u5728"\u5de5\u7a0b" -- "\u5f15\u7528" \u4e2d,\u627e\u5230"Microsoft ActiveX Data Object *.* Library",\u8fd9\u91cc\u7684"*.*"\u662f\u6307\u7684\u65f6ADO\u7684\u7248\u672c\u53f7,\u4e00\u822c\u6765\u8bf4,\u5e94\u7528\u7a0b\u5e8f\u6216ActiveX\u63a7\u4ef6\u90fd\u5177\u6709\u5411\u4e0b\u517c\u5bb9\u6027,\u6240\u4ee5\u6211\u4eec\u5c3d\u53ef\u80fd\u9009\u62e9\u6bd4\u8f83\u65b0\u7684\u7248\u672c.\u4ee5\u786e\u4fdd\u7a0b\u5e8f\u5728\u80fd\u8bc6\u522b\u65e7\u7248\u672cAccess\u7684\u540c\u65f6,\u4e5f\u80fd\u8bc6\u522b\u8f83\u65b0\u7248\u672c\u7684Access.
\u7136\u540e\u6211\u4eec\u9700\u8981\u5728\u7a0b\u5e8f\u4e2d\u521b\u5efa\u4e00\u4e2a\u5bf9\u8c61.\u5c31\u597d\u6bd4\u6211\u4eec\u5728\u7a97\u4f53\u4e0a\u6dfb\u52a0\u4e00\u4e2aFileBox\u624d\u80fd\u770b\u5230\u6587\u4ef6\u540d\u4e00\u6837,\u53ea\u6709\u521b\u5efa\u4e86ADO\u5bf9\u8c61,\u6211\u4eec\u624d\u80fd\u591f\u8bbf\u95ee\u6570\u636e\u5e93.\u5e38\u7528\u7684\u5bf9\u8c61\u6709\u4e24\u4e2a,Connection\u548cRecordset.
\u521b\u5efa\u8fd9\u4e24\u4e2a\u5bf9\u8c61\u7684\u5177\u4f53\u65b9\u6cd5\u662f:
1.\u5728\u5f15\u7528\u540e,\u4f7f\u7528New\u5173\u952e\u5b57,\u5982
Private Conn As New ADODB.Connection
Private Reco As New ADODB.Recordset
2.\u5728\u6ca1\u5f15\u7528\u65f6,\u7528CreateObject\u521b\u5efa\u5bf9\u8c61:
Dim Conn,Reco
Set Conn = CreateObject("ADODB.Connection")
Set Reco = CreateObject("ADODB.Recordset")
\u521b\u5efa\u4e86\u5bf9\u8c61\u4e4b\u540e,\u4e0b\u4e00\u6b65\u6211\u4eec\u8981\u505a\u7684\u5c31\u662f\u6253\u5f00\u6570\u636e\u5e93\u4e86.
\u5148\u770b\u4e0b\u9762\u7684\u4ee3\u7801,\u53ef\u4ee5\u6210\u529f\u7684\u6253\u5f00\u6570\u636e\u5e93.
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"
\u8fd9\u53e5\u4ee3\u7801\u6253\u5f00\u4e86D\u76d8\u4e2d\u7684Main.mdb\u8fd9\u4e2a\u6570\u636e\u5e93.
Connection.Open\u65b9\u6cd5\u7684\u7b2c\u4e00\u4e2a\u53c2\u6570\u662f\u8fde\u63a5\u4ee3\u7801,\u5b83\u5c06\u4f20\u9012\u7ed9\u7cfb\u7edf\u7684\u6570\u636e\u5e93\u5f15\u64ce.\u524d\u534a\u90e8\u5206"Provider= Microsoft.Jet.OLEDB.4.0",\u5b83\u8868\u793a\u4e86\u6570\u636e\u5e93\u7684\u7c7b\u578b.\u4e0d\u540c\u7684\u6570\u636e\u5e93\u53ef\u80fd\u4f1a\u4e0d\u540c.\u540e\u534a\u53e5"Source=d:\main.mdb"\u5b83\u8868\u793a\u4e86\u6570\u636e\u5e93\u6240\u5728\u7684\u7edd\u5bf9\u8def\u5f84.
\u6253\u5f00\u6570\u636e\u5e93\u4e4b\u540e,\u8fd8\u8981\u6253\u5f00\u8868.\u5047\u5982\u6570\u636e\u5e93\u4e2d\u6709\u4e00\u4e2a\u8868,\u8868\u540d\u4e3a"Users",\u5b57\u6bb5\u6709\u4e24\u4e2a,\u4e00\u4e2a\u4e3a\u7528\u6237\u540d,\u4e00\u4e2a\u4e3a\u5bc6\u7801.\u90a3\u4e48\u770b\u4ee5\u4e0b\u4ee3\u7801.
1.\u60f3\u8fd4\u56de"Users"\u4e2d,[\u7528\u6237\u540d]\u4e3a"\u53bb\u5e74\u70df\u82b1"\u7684[\u5bc6\u7801]
Recordset.open "Select \u5bc6\u7801 From Users Where \u7528\u6237\u540d='\u53bb\u5e74\u70df\u82b1'",Connection,1,1
\u4e4b\u540e\u6211\u4eec\u5c31\u53ef\u4ee5\u628a\u7528\u6237\u8f93\u5165\u7684\u5bc6\u7801\u8fdb\u884c\u6bd4\u8f83,\u770b\u662f\u5426\u5141\u8bb8\u767b\u5f55.
If Recordset.eof and Recordset.bof then
Msgbox "\u7528\u6237\u4e0d\u5b58\u5728!",16
Else
If PassWord =Recordset("\u5bc6\u7801").value then
msgbox "\u767b\u5f55\u6210\u529f!",64
Else
msgbox "\u5bc6\u7801\u9519\u8bef!",32
End If
End If
Recordset.Close
2.\u5047\u8bbeAdmin\u5df2\u7ecf\u6210\u529f\u767b\u5f55\u7cfb\u7edf,\u6211\u4eec\u60f3\u628a\u6240\u6709\u7684\u7528\u6237\u540d\u548c\u5bc6\u7801\u90fd\u663e\u793a\u51fa\u6765
Recordset.open "Select * From Users",Connection,1,1
\u8fd9\u65f6,\u8868\u5df2\u7ecf\u88ab\u6253\u5f00,\u6211\u4eec\u5c31\u7528\u4ee5\u4e0b\u4ee3\u7801\u628a\u5b83\u663e\u793a\u51fa\u6765.
Do whlie Not Recordset.eof
Print "\u7528\u6237\u540d: " & Recordset("\u7528\u6237\u540d").value & "\u5bc6\u7801: " & Recordset("\u5bc6\u7801").value
Recordset.MoveNext
Loop
Recordset.Close
\u7531\u4ee5\u4e0a\u4ee3\u7801\u793a\u4f8b\u53ef\u4ee5\u770b\u51fa,\u6253\u5f00\u8868\u65f6,\u53ef\u4ee5\u53ea\u6253\u5f00\u5176\u4e2d\u7684\u4e00\u4e2a\u5b57\u6bb5,\u4e5f\u53ef\u4ee5\u6253\u5f00\u6240\u6709.\u7b2c\u4e00\u4e2a\u53c2\u6570\u662fSQL\u8bed\u53e5.
Select [\u5b57\u6bb5\u540d] From \u8868\u540d [Where \u6761\u4ef6]
\u8fd9\u91cc\u7684\u6761\u4ef6\u53ef\u4ee5\u7701\u7565.\u4e14\u5b57\u6bb5\u540d\u4e5f\u53ef\u4ee5\u7528"*"\u6765\u4ee3\u66ff\u6240\u6709\u5b57\u6bb5.
\u9700\u8981\u6ce8\u610f\u7684\u662f,\u5982\u679c\u4f60\u7528(1)\u4e2d\u7684\u65b9\u6cd5\u6253\u5f00,\u90a3\u4e48(2)\u540e\u9762\u663e\u793a\u7684\u4ee3\u7801\u5c31\u4e0d\u80fd\u518d\u7528\u5728(1)\u4e2d.\u56e0\u4e3a(1)\u91cc\u5e76\u6ca1\u6709\u6253\u5f00[\u7528\u6237\u540d]\u5b57\u6bb5,\u6240\u4ee5\u8fd9\u4e00\u53e5Recordset("\u5bc6\u7801")\u5c31\u6ca1\u6709\u503c\u5b58\u5728,\u8fd8\u6709\u53ef\u80fd\u51fa\u9519.
\u540e\u9762\u7684\u6761\u4ef6,\u53ef\u4ee5\u7528"="\u3001">"\u3001" 32".(\u8fd9\u91cc\u5047\u8bbe[ID]\u4e3a\u6570\u5b57\u578b.)
\u8fd9\u662f\u6253\u5f00\u7684\u90e8\u5206.\u7b2c\u4e8c\u4e2a\u5f88\u91cd\u8981\u7684\u90e8\u5206\u5c31\u662f\u67e5\u8be2\u8bb0\u5f55.
\u6570\u636e\u5e93\u5b83\u5e76\u4e0d\u662f\u628a\u6240\u6709\u8bb0\u5f55\u5168\u90e8\u653e\u5230\u4e00\u4e2a\u53d8\u91cf\u4e2d\u5907\u7528\u7684.\u800c\u662f\u4ee5"\u5f53\u524d\u8bb0\u5f55"\u7684\u5f62\u5f0f\u6765\u8fd4\u56de\u4e00\u4e2a\u503c.\u6240\u4ee5\u6211\u4eec\u60f3\u4ece\u4e2d\u627e\u5230\u6709\u7528\u7684\u4fe1\u606f,\u5c31\u5fc5\u987b\u8981\u5bf9\u4fe1\u606f\u8fdb\u884c\u5b9a\u4f4d/\u7b5b\u9009.
\u5b9a\u4f4d:
\u79fb\u52a8\u5230\u4e0b\u4e00\u6761 Recordset.MoveNext
\u79fb\u52a8\u5230\u4e0a\u4e00\u6761 Recordset.MovePrevious
\u79fb\u52a8\u5230\u6700\u540e\u4e00\u6761 Recordset.MoveLast
\u79fb\u52a8\u5230\u7b2c\u4e00\u6761 Recordset.MoveFrist
\u79fb\u52a8\u5230\u67d0\u4e00\u6761 Recordset.Move Number
\u7b5b\u9009:
Recordset.Find "\u6761\u4ef6"
\u5982:[\u7528\u65b9\u6cd5(2)\u6253\u5f00\u8868\u4e4b\u540e]
Private Sub Command1_Click()
Recordset.Find "\u7528\u6237\u540d=" & "text1.text"
If Recordset.Eof True Then
Msgbox "\u8be5\u7528\u6237\u7684\u5bc6\u7801\u662f:" & Recordset("\u5bc6\u7801").value,64
Else
Msgbox "\u672a\u627e\u5230\u8be5\u7528\u6237\u7684\u8d44\u6599!",16
End If
End Sub
MoveNext \u53ea\u6709\u5f53Eof\u4e0d\u4e3aTrue\u65f6,\u624d\u53ef\u7528,\u5426\u5219\u53d1\u751f\u9519\u8bef.\u800cMovePrevious\u521a\u662fBof\u4e0d\u4e3aTrue\u65f6....
\u800c\u53ea\u8981Eof \u548c Bof\u4e2d\u6709\u4e00\u4e2a\u4e0d\u4e3a\u771f\u65f6,\u4e5f\u5c31\u662f\u8bf4\u53ea\u8981\u6709\u4e00\u6761\u8bb0\u5f55\u65f6,\u5b83\u5c31\u53ef\u4ee5\u4f7f\u7528.
Find \u65b9\u6cd5\u4e2d\u7684\u6761\u4ef6\u548cOpen\u65f6\u7684\u7b2c\u4e00\u4e2a\u53c2\u6570\u4e2d\u7684\u6761\u4ef6\u8868\u8ff0\u65b9\u6cd5\u662f\u5b8c\u5168\u4e00\u81f4\u7684.\u5f53\u5728\u5df2\u6253\u5f00\u7684\u8bb0\u5f55\u96c6\u4e2d,\u627e\u4e0d\u5230\u8be5\u8bb0\u5f55\u65f6,Eof\u4e3aTrue.\u627e\u5230\u5219\u5f53\u524d\u7684\u503c\u5c31\u662f\u7b26\u5408\u6761\u4ef6\u7684\u8bb0\u5f55.
\u7b2c\u4e09\u4e2a\u90e8\u5206\u5c31\u662f\u6dfb\u52a0/\u4fee\u6539\u8bb0\u5f55.
\u4fee\u6539\u8bb0\u5f55\u5f88\u7b80\u5355,\u5148\u6309\u4ee5\u4e0a\u7684\u65b9\u6cd5\u627e\u5230\u76f8\u5173\u8bb0\u5f55\u4e4b\u540e,\u7ed9\u8bb0\u5f55\u8d4b\u503c\u5c31\u53ef\u4ee5\u4e86.
\u6bd4\u5982:[(\u4fee\u6539\u5bc6\u7801)\u6309\u65b9\u6cd5(1)\u6253\u5f00\u8868\u4e4b\u540e]
Recordset("\u5bc6\u7801").value = "123456"
Recordset.Updata
\u9700\u8981\u6ce8\u610f\u7684\u5c31\u662f,\u5728\u4fee\u6539\u5b8c\u6210\u540e,\u8981\u8c03\u7528Updata\u65b9\u6cd5,\u8fd9\u6837\u4fee\u6539\u624d\u80fd\u751f\u6548.
\u800c\u6dfb\u52a0\u8bb0\u5f55\u5219\u53ef\u4ee5\u7528\u4ee5\u4e0b\u4ee3\u7801\u6765\u5b9e\u73b0:
Recordset.addnew
Recordset("\u7528\u6237\u540d").value = "Admin"
Recordset("\u5bc6\u7801").value = "Admin"
Recordset.Updata
\u8fd9\u91cc,\u5148\u8981\u8c03\u7528Addnew\u65b9\u6cd5,\u589e\u52a0\u4e00\u6761\u65b0\u8bb0\u5f55,\u7136\u540e\u5bf9\u8fd9\u4e2a\u65b0\u8bb0\u5f55\u4e2d\u7684\u5404\u5b57\u6bb5\u8d4b\u503c,\u6700\u540e\u518d\u8c03\u7528Updata\u65b9\u6cd5.
\u5230\u8fd9\u91cc\u5c31\u5dee\u4e0d\u591a\u4e86,\u6700\u540e\u8bf4\u4e00\u4e0b\u4e0a\u9762\u63d0\u5230\u7684\u51e0\u4e2a\u65b9\u6cd5.
Recordset.Open SQL\u8bed\u53e5,\u6570\u636e\u6e90,\u6e38\u6807\u7c7b\u578b,\u6253\u5f00\u65b9\u6cd5
SQL\u8bed\u53e5\u4e0d\u7528\u8bf4\u4e86,\u5c31\u662fSelect\u90a3\u5565\u7684,\u76ee\u7684\u5c31\u662f\u6309\u8981\u6c42\u4ece\u8868\u4e2d\u8fd4\u56de\u6570\u636e
\u6570\u636e\u6e90\u5c31\u662f\u4e00\u4e2a\u6253\u5f00\u4e4b\u540e\u7684Connection\u5bf9\u8c61.
\u53bb\u4ed6\u5988\u7684\u6e38\u6807\u7c7b\u578b,\u586b1\u5c31\u53ef\u4ee5\u4e86 [\u5077\u7b11ing]
\u6253\u5f00\u65b9\u6cd5\u5bf9\u5e94\u4e86\u51e0\u4e2a\u5e38\u6570,\u5177\u4f53\u54ea\u51e0\u4e2a\u53ef\u4ee5\u4ece\u5bf9\u8c61\u6d4f\u89c8\u5668\u91cc\u770b.
\u5bf9\u5e94\u6570\u503c\u7684\u610f\u4e49:
1 \u53ea\u8bfb 2 \u72ec\u5360 3 \u53ef\u5199 4 \u81ea\u5df2\u53ef\u5199,\u522b\u4eba\u53ef\u8bfb
Connection.open \u8fde\u63a5\u4ee3\u7801,\u670d\u52a1\u5668\u7528\u6237\u540d,\u5bc6\u7801
\u8fd9\u91cc\u7684\u8fde\u63a5\u4ee3\u7801\u5c31\u4e0d\u5728\u591a\u8bf4\u4e86,\u670d\u52a1\u5668\u7528\u6237\u540d,\u5bc6\u7801\u53ea\u6709\u5728\u8fde\u63a5\u8fdc\u7a0b\u6570\u636e\u5e93\u65f6\u624d\u7528\u5230.
'\u5728\u6a21\u5757\u4e2d\u6dfb\u52a0\u4ee5\u4e0b\u4ee3\u7801------------------
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
'\u8fde\u63a5\u6570\u636e\u5e93
Public Function ConnectDB(strDb as string) As String
On Error GoTo ErrH:
With cn
If .State <> adStateClosed Then .Close
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDb &";"
.ConnectionTimeout = 30
.CursorLocation = adUseClient
.Open
End With
Exit Function
ErrH:
ConnectDB = "\u8fde\u63a5\u6570\u636e\u5e93\u5931\u8d25:" & Err.Description
End Function
'\u7a0b\u5e8f\u542f\u52a8\u51fd\u6570
Sub Main()
dim strResult as string
dim strDatabase as String
'\u6570\u636e\u5e93\u8def\u5f84
strDataBase=App.Path & "test.db"
strResult=ConnectDB()
'\u8fde\u63a5\u6570\u636e\u5e93
if strResult<>"" then
Msgbox strResult,vbCritical
End
End If
MsgBox "\u8fde\u63a5\u6570\u636e\u5e93\u6210\u529f\uff01"
'\u6253\u5f00\u6570\u636e\u8868(Table1\u662f\u4f60\u7684\u6570\u636e\u8868)
rs.Open "select * from Table1",cn,adOpenKeyset, adLockOptimistic
MsgBox "\u5171\u627e\u5230"& rs.RecordCount &"\u6761\u8bb0\u5f55!"
rs.Close
End Sub
如果只是查询. 写入. 删除,我们常用的就是
OleDbConnection '用于写数据库的连接
OleDbCommand '用于数据的操作 接收SQL语句 并执行
OleDbDataReader '查询了,我们就用这个类来读取查询的对象
1).OleDbConnection
dim conn as new OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =数据库的路径")'连接字符串一般就这样
查询前在打开
conn.open
2).OleDbCommand
dim cmd as new OleDbCommand ("SQL语句",conn)'SQL语句决定了你是查询写入还是更新删除
'''
如果是查询,你还要用到OleDbDataReader
这个是不用新建的不能用New
dim rd as OleDbDataReader=cmd.ExecuteReader'cmd.ExecuteReader 方法就是读取查询的内容
cmd.ExecuteNonQuery用于执行操作 返回变动的条数 ,一般用于 添加 删除 更新 等其它操作
其实就这些了,就是要学点SQL语句就行了.
标准执行过程就是
Dim conn As New OleDbConnection("连接字符串")
conn.Open()
Dim cmd As New OleDbCommand("SQL语句", conn)
'如果是写入 更新 删除 则
cmd.ExecuteNonQuery()
' 否则
Dim rd As OleDbDataReader = cmd.ExecuteReader
If rd.Read Then
Dim d As Object = rd.Item("字段名")
End If
' 结束如果
rd.Close()
cmd.Dispose()
conn.Close()
上面要有 Imports System.Data.OleDb
绛旓細濡傛灉鍙槸鏌ヨ. 鍐欏叆. 鍒犻櫎,鎴戜滑甯哥敤鐨勫氨鏄 OleDbConnection '鐢ㄤ簬鍐欐暟鎹簱鐨勮繛鎺 OleDbCommand '鐢ㄤ簬鏁版嵁鐨勬搷浣 鎺ユ敹SQL璇彞 骞舵墽琛 OleDbDataReader '鏌ヨ浜,鎴戜滑灏辩敤杩欎釜绫绘潵璇诲彇鏌ヨ鐨勫璞 1).OleDbConnection dim conn as new OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =鏁...
绛旓細鍦–#涓湁 闈欐佺被 鐨勬蹇 鑷劧閲岃竟鍏ㄩ儴鐨勬柟娉曢兘鏄潤鎬佺殑 杩欐剰鍛崇潃浣犲彲浠ョ洿鎺閫氳繃 绫诲悕 鏂规硶鍚 鍘璋冪敤锛堜緥濡係ystem鐨凪ath绫诲氨鏄吀鍨嬶級 鍦VB NET涓 娌℃湁 闈欐佺被 鐨勬蹇碉紙褰撶劧浣犲彲浠ョ敤 鍗曚緥妯″紡 鎶婃瀯閫犲嚱鏁板紕鎴怭rivate鐨勬柟寮 鍏跺畠鏂规硶閮芥槸闈欐佺殑锛夊鏋滄煇浜涙柟娉曢渶瑕佽鍏跺畠鍦版柟棰戠箒浣跨敤 鍙互鍒涘缓 妯″潡 鍦╒...
绛旓細灏妯″潡涓殑杩囩▼鍐欎负Public,鍦璋冪敤 姣斿妯″潡涓:Public Sub text()...End Sub 涓荤獥浣撹皟鐢ㄤ唬鐮:Call text()
绛旓細鍏跺疄寰堢畝鍗曠殑锛屾湁涓ょ鏂规硶锛屽厛璇存渶绠鍗曠殑锛婧愪唬鐮佺鐞嗗叾鍚杩囧惂锛屼娇鐢ㄦ簮浠ｇ爜绠＄悊鍣ㄧ鐞嗘簮浠ｇ爜锛岃繖鏍峰氨鍙互澶氫釜绋嬪簭鍛樺崗鍚屽鐞嗗悓涓涓枃浠讹紝鍙浜嬪厛娌熼氬ソ绋嬪簭缁撴瀯灏辫浜嗐傚彟澶栦竴涓氨鏄湪浠ユ柟妗堢殑褰㈠紡鍒涘缓宸ョ▼锛屽疄闄呬笂杩欑鏂规硶涔熸渶濂界敤婧愪唬鐮佺鐞嗗櫒绠＄悊銆備竴涓柟妗堜笅闈㈠寘鍚玁涓」鐩紝琚娇鐢ㄧ殑椤圭洰妯″潡缂栬瘧...
绛旓細鍦ㄤ换鎰廸orm绫绘垨妯″潡涓兘鍙互鍒涘缓绫伙紝璺寤虹珛鍑芥暟鍜岃繃绋嬩竴鏍枫傜ず渚嬶細public class form1 鈥樺垱寤轰竴涓睘浜巉orm鐨勫瓙绫伙紝鍚嶇О涓恒愮被鍚嶃戙俻ublic class 绫诲悕 鈥欏畾涔夌被鎴愬憳text public text as string end class 鈥樺畾涔変竴涓愮被鍚嶃戠被鐨勫叕鍏卞彉閲忋俤im 绫诲悕1 as 绫诲悕 鈥欏畾涔変竴涓繃绋嬶紝浣跨敤銆愮被鍚嶃戠被鐨...
绛旓細Public Sub 杞藉叆绐椾綋() '鍦ㄧ被涓叕鏈夋柟娉曡鏄庣‘Public Dim frm As New Form1 '鍦╓indows搴旂敤绋嬪簭椤圭洰涓郴缁熼殣鍚敓鎴愪簡涓涓狥orm1绫荤殑鍚屽悕瀵硅薄锛屽叾瀹炰綘鐩存帴寮曠敤鐨勬槸闅愬惈鐨凢orm1瀵硅薄锛岃屼笉鏄湅寰楃潃鐨勯偅涓狥orm1绐楀彛绫汇'鑰屽湪杩欑宸ョ▼绫诲瀷涓垪琛ㄤ腑娌℃湁鍒楀嚭鏉ワ紝搴旇鏄病鏈夌殑锛屾墍浠ョ殑鐢ㄤ唬鐮佺敓鎴怓orm1鐨...
绛旓細鎴戜互鍓嶅啓杩囷紝鐢vb鍋氱殑 閫氳繃GSM妯″潡缁欏悓浜嬪畾鏃跺彂澶╂皵棰勬姤 涓昏鍒嗘垚涓や釜閮ㄥ垎 1鏄璋冪敤VB鐨勪竴涓粍浠 浣垮畠鍙互鏀寔com鐨勮鍙栧拰鍐欏叆鎸囦护 2鏄壘鍒颁竴涓墜鏈 鏀寔com閫氳 骞朵笖璇疯缁嗛槄璇绘湁鍏宠鎵嬫満鐨勬寚浠ら儴鍒 鐒跺悗鏍规嵁com鐨凙T鎸囦护 鍦╒B涓杩欎釜com绔彛鎻愪氦鎸囦护 (鏈濂藉甫涓涓暟鎹簱锛屼繚瀛樹綘鐨勭煭娑堟伅鍐呭銆)鐒跺悗...
绛旓細鍦妯″潡涓紩鐢ㄥ埌绐椾綋涓殑鎺т欢锛屽繀椤诲湪璇ユ帶浠跺悕涔嬪墠鐢辩浉搴旂殑绐椾綋鍚嶄綔涓哄墠瀵硷紝渚嬪锛1锛岃寮曠敤绐椾綋Form1涓殑鎺т欢TextBox1 MsgBox(Form1.TextBox1.Text)2锛岃寮曠敤绐椾綋Form2涓殑鎺т欢TextBox1 MsgBox(Form2.TextBox1.Text)
绛旓細.net娌℃湁VB6涓妯″潡鐨勬蹇.鍙互娣诲姞绫,鎴栫粍浠.鍙抽敭鍗曞嚮宸ョ▼,灏卞彲浠ュ湪寮瑰嚭鑿滃崟鐪嬪埌鐩稿叧鑿滃崟椤
绛旓細鎵鏈夌獥浣妯″潡鐨勫閮璋冪敤蹇呴』鎸囧悜鍖呭惈姝よ繃绋嬬殑绐椾綋妯″潡銆傚鏋滃湪绐椾綋妯″潡 Form1 鍖呭惈 SomeSub 杩囩▼锛屽垯鍙娇鐢ㄤ笅闈㈢殑璇彞璋冪敤 Form1 涓殑杩囩▼锛欳all Form1.SomeSub(arguments)绫绘ā鍧椾腑鐨勮繃绋 涓庣獥浣撲腑璋冪敤杩囩▼绫讳技锛屽湪绫绘ā鍧椾腑璋冪敤杩囩▼瑕佽皟鐢ㄤ笌杩囩▼涓鑷村苟涓旀寚鍚戠被瀹炰緥鐨勫彉閲忋備緥濡傦紝DemoClass 鏄被 Class1 鐨...
