vb.net 使用向?qū)гO(shè)置數(shù)據(jù)庫連接

做個對話框,加入控件:

石阡網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、自適應(yīng)網(wǎng)站建設(shè)等網(wǎng)站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)公司2013年成立到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。

一個openfiledialog,

文本框:ACCESS路徑,用戶,密碼

按鈕,瀏覽.確定,取消.

點瀏覽打開找到ACCESS路徑,輸入用戶密碼,確定保存.

一個窗體就行,不用多步向?qū)?

怎樣用VB.NET寫和調(diào)用DLl窗體

一、帶窗體的dll創(chuàng)建

1、先新建 類庫（testdll），在項目中添加兩個窗體form1(主窗體)、form2,為了與后面的調(diào)用區(qū)分分別命名為fm1,fm2；并在fm1窗體中添加一個按鈕用來調(diào)用fm2如下圖

2、在fm1窗體代碼中先引用fm2, ? ?按鈕代碼調(diào)用fm2.如圖

3、生成dll,(class1.vb中不需要寫任何代碼）

二、調(diào)用dll

1、新建 一個windows應(yīng)用程序并添加一個按鈕用來調(diào)用dll中的窗體，選 擇 “項目”－“添加引用”，選擇剛才創(chuàng)建的testdll

2、窗體代碼中先引用testdll,再定義一個testdll中的fm1對象，最后執(zhí)行對象的show方法

3、運行結(jié)果如下：

vb.net里面找不到數(shù)據(jù)窗體向?qū)?。。。自動生成?shù)據(jù)庫管理窗體那個

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

Try

Me.BindingContext(objDS, "authors").EndCurrentEdit()

Me.BindingContext(objDS, "authors").SuspendBinding() '臨時掛起數(shù)據(jù)綁定

Me.BindingContext(objDS, "authors").AddNew() '增加新記錄

'如下兩層循環(huán)先找出authors表中不允許為null的列字段，然后找出綁定到該字段的binding對象,

'依據(jù)綁定到的控件屬性不同來為新增記錄中不能為空的字段賦不同初始值

Dim i As Integer

For i = 0 To objDS.authors.Columns.Count - 1 '遍歷authors表中所有列字段

'找出authors表中不允許為null的列字段

If objDS.Tables("authors").Columns(i).AllowDBNull = False Then

Dim j As Integer

For j = 0 To Me.BindingContext(objDS, "authors").Bindings.Count - 1 '遍歷所有Binding對象

'找出綁定到不允許為null字段的binding對象

If Me.BindingContext(objDS, "authors").Bindings(j).BindingMemberInfo.BindingField = _

objDS.authors.Columns(i).ColumnName Then

'如果綁定到的控件的屬性為Text

If BindingContext(objDS, "authors").Bindings(j).PropertyName() = "Text" Then

'新增加記錄中不能為null的字段賦初始值"",該語句還可用緊挨著的注釋語！

如何給VB.NET窗體添加子窗體？

直接添加一個MID父窗體或在已有窗體的屬性中找到IsMDIContainer屬性，然后設(shè)置為True，然后創(chuàng)建第二個窗體 ，需要加載子窗體的時候：

Dim NewMDIChild As New Form2

NewMDIChild.MdiParent = Me

NewMDIChild.Show()

Public?Shared?Sub?CheckMDIChildForm(ByVal?MDIForm?As?Windows.Forms.Form,?ByVal?MDIChildForm?As?Windows.Forms.Form,?ByVal?MDIChildFormName?As?String)

If?MDIForm.MdiChildren.Length??1?Then

'如果沒有任何一個MDI子窗體，則創(chuàng)該MDI子窗體的窗體實例

Dim?MDIChildFrm?As?Windows.Forms.Form?=?MDIChildForm?'?定義MDI子窗體

MDIChildFrm.MdiParent?=?MDIForm?'指定父窗體

MDIChildFrm.Show()?'打開窗體

Exit?Sub

Else

Dim?x?As?Integer

Dim?frmyn?As?Boolean

For?x?=?0?To?(MDIForm.MdiChildren.Length)?-?1

Dim?tempChild?As?Windows.Forms.Form?=?CType(MDIForm.MdiChildren(x),?Windows.Forms.Form)

If?tempChild.Name?=?MDIChildFormName?Then

'檢測到有該MDI子窗體，設(shè)為激活?并退出循環(huán)

frmyn?=?True

tempChild.BringToFront()

Exit?For

Else

frmyn?=?False

End?If

Next

If?Not?frmyn?Then

'在打開的窗體中沒檢測到則新建

Dim?MDIChildFrm?As?Windows.Forms.Form?=?MDIChildForm?'?定義MDI子窗體

MDIChildFrm.MdiParent?=?MDIForm?'指定父窗體

MDIChildFrm.Show()?'打開窗體

End?If

End?If

End?Sub

VB.net如何設(shè)置程序運行時最先打開的窗體？

你是不是用的Visual Studio來開發(fā)的？如果是，這樣操作：打開 項目 菜單 中的 XXX屬性，在彈出的屬性頁選擇最上面那個 應(yīng)用程序 標(biāo)簽，里面有個啟動窗體，你選擇一下就可以了。

如果你不是用的visual Studio來開發(fā)的，那么可以考慮把另外一個窗口的visible屬性先設(shè)置為false或者把你要顯示的窗口改為對話框的形式，大小比另外一個窗口大一點或者一樣（即 模態(tài)窗口，必須關(guān)閉才能繼續(xù)操作），這樣都可以實現(xiàn)你要的效果。