誰能給個(gè) vb.net 異步，多線程查詢SQL數(shù)據(jù)實(shí)例。C/S程序的

1.配置SQLServer外圍應(yīng)用服務(wù)器,開啟SQL2005遠(yuǎn)程連接功能：

站在用戶的角度思考問題，與客戶深入溝通，找到仙游網(wǎng)站設(shè)計(jì)與仙游網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：網(wǎng)站設(shè)計(jì)制作、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、申請域名、網(wǎng)絡(luò)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋仙游地區(qū)。

操作方式如下，點(diǎn)擊“配置工具”-“SQLServer外圍應(yīng)用配置器”，然后在打開的窗口中選擇“服務(wù)和連接的外圍應(yīng)用配置器”-然后選擇Database Engine節(jié)點(diǎn)下的 “遠(yuǎn)程連接”，選擇“本地連接和遠(yuǎn)程連接”，同時(shí)選擇“同時(shí)使用TCP/IP和named pipes”，確定后然后需要重新啟動(dòng)數(shù)據(jù)庫服務(wù)就可以了。

2.把登陸設(shè)置改為SQLServer 和 Windows 身份驗(yàn)證模式，具體設(shè)置如下:

打開SQLServer Management Studio管理器，點(diǎn)擊服務(wù)器上面右鍵然后查看屬性，在安全性選項(xiàng)里面對服務(wù)身份驗(yàn)證選擇“SQLServer 和 Windows 身份驗(yàn)證模式”。

vb.net 如何用通配符查找文件

步驟如下：

窗體上添加2個(gè)列表框，一個(gè)按鈕：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyDir As String = "C:\123"

'搜索并顯示子文件夾

ListBox1.Items.Clear()

For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)

ListBox1.Items.Add(MySubDir)

Next

'搜索并顯示文件

ListBox2.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)

ListBox2.Items.Add(MyFile)

Next

End Sub

End Class

VB.net實(shí)例

1 生成txt文件。

DimSaveFileDialog1AsNewSaveFileDialog()?'創(chuàng)建一個(gè)保存對話框

SaveFileDialog1.Filter?="txt?files?(*.txt)|*.txt"?'設(shè)置擴(kuò)展名

IfSaveFileDialog1.ShowDialog()?=?System.Windows.Forms.DialogResult.OKThen?'如果確定保存

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename,?Textbox1.Text,False)?'保存文本,False表示不追加文本，直接覆蓋其內(nèi)容

EndIf

原文鏈接：

求一個(gè)VB.net 增刪改查實(shí)例 ，哪位大神有空幫我寫一下或者有現(xiàn)成的給我一個(gè)，，我比較菜又比較急，在線等

Imports System.Data.OleDb

'Imports System.Data.OracleClient

Imports System.Data.SqlClient

'鏈接Oracle

'cn = New SqlConnection(""Data Source=TNS名稱;Persist Security Info=True;User ID=用戶名;Password=密碼;" ")

'Imports System.Data.OracleClient

'Dim oOracleConn As OracleConnection = New OracleConnection()

'oOracleConn.ConnectionString = ""Data Source=MyOracleDB; User Id=username; Password=passwd; Integrated Security=no; "

'oOracleConn.Open()

'鏈接SQL Server

'cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=;")

'鏈接Access

'cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")

Public Class Fun_DataBase

Dim cn As OleDbConnection

Dim cm As OleDbCommand

Dim da As OleDbDataAdapter

Dim ds As DataSet

Dim db_path As String = "D:\Documents\Visual Studio 2013\Projects\VBnet1\VBnet1\Resources\Database1.mdb"

Function Fun_sql1(Str_sql As String, V_調(diào)用來源 As String) '按指定sql，反饋1個(gè)查詢值

Try

'Dim cn As New OleDbConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;")

'鏈接Access

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")

cn.Open() 'sql語句執(zhí)行前，必須打開連接

cm = New OleDbCommand(Str_sql, cn)

cm.ExecuteNonQuery()

Dim strValue As String = cm.ExecuteScalar.ToString

'MessageBox.Show(strValue)

Fun_sql1 = strValue

cn.Close()

Fun_sql1 = True

Catch ex As Exception

MessageBox.Show(V_調(diào)用來源 ":執(zhí)行sql語句失敗！" Str_sql)

Fun_sql1 = False

End Try

End Function

Function Fun_sqln(Str_sql As String, V_調(diào)用來源 As String) '按指定sql，反饋1行n列查詢值

Try

'鏈接Access

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")

cn.Open() 'sql語句執(zhí)行前，必須打開連接

Dim cmd As New OleDbCommand("select * from grade", cn)

'Dim dr As SqlDataReader

Dim dr As OleDbDataReader

dr = cmd.ExecuteReader()

Dim strDisplay As String = ""

While dr.Read()

Fun_sqln = dr(0).ToString "|"

End While

cn.Close()

Fun_sqln = True

Catch ex As Exception

MessageBox.Show(V_調(diào)用來源 ":執(zhí)行sql語句失敗！" Str_sql)

Fun_sqln = False

End Try

'Dim s = Split(F.Fun_sqln("ef"), "|")

'Dim i As Integer

'i = UBound(s)

'For i = 0 To UBound(s)

' MessageBox.Show(s(i))

'Next

End Function

Public Function Fun_sql_exec(Str_sql As String, V_調(diào)用來源 As String) '執(zhí)行指定sql，反饋T|F

Try

'鏈接Access

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")

cn.Open() 'sql語句執(zhí)行前，必須打開連接

cm = New OleDbCommand(Str_sql, cn)

cm.ExecuteNonQuery()

cn.Close()

Fun_sql_exec = True

Catch ex As Exception

MessageBox.Show(V_調(diào)用來源 ":執(zhí)行sql語句失敗！" Str_sql)

Fun_sql_exec = False

End Try

End Function

VB.NET遍歷查找某個(gè)文件夾，并找出指定文件

解壓密碼：1299

假設(shè)路徑為C:\abc

代碼：

Public?Class?Form1

Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

Dim?Files?As?ObjectModel.ReadOnlyCollection(Of?String)?=?My.Computer.FileSystem.GetFiles("C:\abc")

Dim?FileSize?As?Long,?FileName?As?String?=?Nothing

Dim?oFileSize?As?Long

For?Each?File?As?String?In?Files

oFileSize?=?My.Computer.FileSystem.GetFileInfo(File).Length

If?oFileSize??FileSize?Then

FileSize?=?oFileSize

FileName?=?File

End?If

Next

Dim?ListN?As?ListViewItem?=?New?ListViewItem(My.Computer.FileSystem.GetName(FileName))

ListN.SubItems.Add(oFileSize??"?byte")

ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension??"?文件")

ListN.SubItems.Add(FileName)

ListView1.Items.Add(ListN)

End?Sub

End?Class

詳見源代碼！！

.net VB怎么通過類獲得相應(yīng)的類的實(shí)例名稱

關(guān)閉窗體觸發(fā)Disposed事件，你為啥要獲取form1對象，然后再來個(gè)form1 = nothing？？你這是想要釋放資源嗎？而且你就算來個(gè)form1 = nothing，也不代表是釋放資源啊，你只是將form1的引用改了，原來指向的實(shí)例化對象依然還在，還是要靠.NET的GC回收。.NET不是有GC嗎？為啥要多此一舉呢？當(dāng)然你要獲得實(shí)例化對象也可以，在FormClass1中添加靜態(tài)變量，在實(shí)例化的同時(shí)，將實(shí)例化對象賦值給靜態(tài)變量，然后，在你想使用該實(shí)例化對象的時(shí)候，直接FormClass1.靜態(tài)變量 就行啦。

網(wǎng)頁標(biāo)題：包含vb.net查找實(shí)例的詞條
分享網(wǎng)址：http://chinadenli.net/article47/dsigjej.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、網(wǎng)站維護(hù)、外貿(mào)網(wǎng)站建設(shè)、微信小程序、網(wǎng)站營銷、靜態(tài)網(wǎng)站

廣告

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