VB與VB.NET串口及以太網通迅

關于串口通訊的問題：

創新互聯公司是一家專業提供湟中企業網站建設,專注與成都做網站、成都網站建設、H5技術、小程序制作等業務。10年已為湟中眾多企業、政府機構等服務。創新互聯專業網站設計公司優惠進行中。

很明顯，你還不知道（不會、不習慣）使用事件驅動的方式接收數據。

建議你仔細看看串口組件（無論VB6還是VB.net）的OnComm事件，你的問題很容易解決。

關于以太網通訊：

在TCP通訊中端口確實可以重用，你百度一下“TCP端口重用”能查到很多示例。

但絕大多數情況下不推薦端口重用，而應該采取服務器端建立連接池的方法。

或者，干脆不用TCP，用UDP解決也可以。

vb.net的數據庫連接

1·綁定數據源來進行連接

2.用代碼連接

先到數據庫建立一個數據庫和相應的表

連接數據庫的代碼：

Dim str As String = "Data Source=服務器名;Initial Catalog=數據庫名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

try

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

Return True

Catch ex As Exception

MsgBox(ex.ToString)

Return False

End Try

登錄代碼：Dim str As String = "Data Source=服務器名;Initial Catalog=數據庫名;Persist Security Info=True;User ID=;Password="

dim conn As SqlClient.SqlConnection

conn = New SqlClient.SqlConnection

conn.ConnectionString = str

conn.Open()

sqlstr = "Select * From Amd Where AmdName='" TextBox1.Text "' And AmdPwd = '" TextBox2.Text "'"

Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)

Dim dr As SqlClient.SqlDataReader

dr = sqlcmd.ExecuteReader

If dr.Read = True Then '判斷一條記錄為真

kf.Show() '顯示下個窗體

Me.Hide() ’隱藏當前窗體

Else

MessageBox.Show("輸入信息有誤！", "提示")

TextBox1.Text = ""

TextBox2.Text = ""

End If

在Visual Studio中用VB.Net如何創建自己的動態連接庫dll?

新建---類庫---把你的函數放在新建的類庫中-----生成ClassLibrary1

在net程序中---引用----對應目錄下的ClassLibrary1.dll

對應的代碼定義如： Dim mydll As New ClassLibrary1.Class1

最后就可以用mydll調用你的函數MyFunction了： mydll .MyFunction(1, 2)

注意：vb.net編寫的DLL不能用API函數的方式通過Declare宣告，只能引用的方式使用

vb.net要編寫的DLL能被vb6.0引用，需要先在編譯屬性中選擇“為COM互操作注冊”打勾

然后在Visual Studio 2008 命令提示中運用RegAsm命令加/tlb命令生成tlb文件

例如：c:\ReleaseRegAsm ClassLibrary1.dll /tlb回車就會在當前目錄生成ClassLibrary1.tlb文件

vb6.0中引用ClassLibrary1.tlb即可。

分享名稱：關于vb.net建立連接池的信息
網頁鏈接：http://www.yijiale78.com/article46/hihehg.html

成都網站建設公司_創新互聯，為您提供靜態網站、企業網站制作、做網站、網站改版、自適應網站、企業建站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯