vb.net插入獲取id的簡(jiǎn)單介紹

如何在VB.NET中新增數(shù)據(jù)時(shí)添加自動(dòng)編號(hào)的ID字段

這個(gè)是數(shù)據(jù)庫(kù)自帶的功能啊，設(shè)置字段類型為自動(dòng)編號(hào)就行了。在保存數(shù)據(jù)的時(shí)候這個(gè)字段不用賦值，也不用出現(xiàn)在Insert語(yǔ)句里。

創(chuàng)新互聯(lián)服務(wù)項(xiàng)目包括富源網(wǎng)站建設(shè)、富源網(wǎng)站制作、富源網(wǎng)頁(yè)制作以及富源網(wǎng)絡(luò)營(yíng)銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，富源網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到富源省份的部分城市，未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

在vb.net中如何查找網(wǎng)頁(yè)中按鈕并單擊，按鈕沒得ID，name，

遍歷整個(gè)html中的input標(biāo)簽，篩選出type為button的，取出onclick里的函數(shù)簽名，注入一段js去執(zhí)行這個(gè)函數(shù)

vb.net SQL SERVER 中，向一個(gè)表中插入了新數(shù)據(jù)，如何快捷的得到自增量字段的當(dāng)前值

這個(gè)自增量是數(shù)據(jù)庫(kù)對(duì)象的自增量，當(dāng)然要從數(shù)據(jù)庫(kù)得，然后取到vb程序里，而數(shù)據(jù)庫(kù)里表示自增量當(dāng)前值的@@identity這個(gè)全局變量：

select?@@identity

即可得到

VB.NET連接Access數(shù)據(jù)庫(kù)查找ID最大的前兩個(gè)數(shù)據(jù)，或新入庫(kù)的前兩個(gè)數(shù)據(jù)

見下面的代碼，自己換成真實(shí)的數(shù)據(jù)庫(kù)及表即可

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

Imports System.Data

Imports System.IO

Imports System.Data.OleDb

Module Module1

Public cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS數(shù)據(jù)庫(kù)1.mdb") '定義連接1---這里請(qǐng)更改為實(shí)際數(shù)據(jù)庫(kù)路徑及名稱

Public cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS數(shù)據(jù)庫(kù)2.mdb") '定義連接2---這里請(qǐng)更改為實(shí)際數(shù)據(jù)庫(kù)路徑及名稱

Public DataBaseRST1 As Integer '用來返回?cái)?shù)據(jù)庫(kù)執(zhí)行結(jié)果

Public DataBaseRST2 As Integer '用來返回?cái)?shù)據(jù)庫(kù)執(zhí)行結(jié)果

Public Function DataModify(ByVal str_cmd1 As String, ByVal str_cmd2 As String) As Boolean '進(jìn)行數(shù)據(jù)庫(kù)修改操作函數(shù)

Dim cmdinsert1 As New OleDbCommand

Dim cmdinsert2 As New OleDbCommand

Try

cmdinsert1.CommandText = str_cmd1

cmdinsert2.CommandText = str_cmd2

cmdinsert1.Connection = cn1

cmdinsert2.Connection = cn2

If cn1.State = ConnectionState.Closed Then cn1.Open()

If cn2.State = ConnectionState.Closed Then cn2.Open()

DataBaseRST1 = cmdinsert1.ExecuteNonQuery() '用來返回執(zhí)行的結(jié)果

DataBaseRST2 = cmdinsert2.ExecuteNonQuery() '用來返回執(zhí)行的結(jié)果

cn1.Close()

cn2.Close()

Return True

Catch ex As Exception

MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

Return False

End Try

End Function

End Module

Public Class Form1

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

DataModify("insert into aa values ('1','2')", "insert into aa values ('1','2')") '調(diào)用方法

End Sub

End Class

追問

這個(gè)方法我只能用于添加修改刪除，請(qǐng)問，查詢數(shù)據(jù)并且綁定到DGV怎么做？

回答

Public Function Search(ByVal cn1 As OleDb.OleDbConnection, ByVal cn2 As OleDb.OleDbConnection, ByVal str_cmd1 As String, ByVal str_cmd2 As String, ByVal DGV1 As DataGridView, ByVal DGV2 As DataGridView) As Boolean '查詢 str_cmd1,str_cmd2---查詢命令，DGV1,DGV2---DataGridView，用來顯示數(shù)據(jù)的控件

Dim tb1 As New DataTable

Dim tb2 As New DataTable

Try

Dim ap1 As New OleDb.OleDbDataAdapter(str_cmd1, cn1)

ap1.Fill(tb1)

DGV1.DataSource = tb1

Dim ap2 As New OleDb.OleDbDataAdapter(str_cmd2, cn2)

ap2.Fill(tb2)

DGV2.DataSource = tb2

Return True

Catch ex As Exception

MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

Return False

End Try

Vb.net中已知某程序的進(jìn)程id，如果激活該程序并最大化？

使用ShowWindow函數(shù)，便可輕松控制窗口的顯隱，最小化，最大化。

概述

函數(shù)功能：該函數(shù)設(shè)置指定窗口的顯示狀態(tài)。

函數(shù)原型：BOOL ShowWindow（HWND hWnd, int nCmdShow）；

*/第一個(gè)參數(shù)為句柄，第二個(gè)參數(shù)選下面的值

#define SW_HIDE 0

#define SW_SHOWNORMAL 1

#define SW_NORMAL 1

#define SW_SHOWMINIMIZED 2

#define SW_SHOWMAXIMIZED 3

#define SW_MAXIMIZE 3

#define SW_SHOWNOACTIVATE 4

#define SW_SHOW 5

#define SW_MINIMIZE 6

#define SW_SHOWMINNOACTIVE 7

#define SW_SHOWNA 8

#define SW_RESTORE 9

#define SW_SHOWDEFAULT 10

#define SW_FORCEMINIMIZE 11

#define SW_MAX 11

參數(shù)含義

hWnd:指窗口句柄。

nCmdShow：指定窗口如何顯示。如果發(fā)送應(yīng)用程序的程序提供了STARTUPINFO結(jié)構(gòu)，則應(yīng)用程序第一次調(diào)用ShowWindow時(shí)該參數(shù)被忽略。否則，在第一次調(diào)用ShowWindow函數(shù)時(shí)，該值應(yīng)為在函數(shù)WinMain中nCmdShow參數(shù)。在隨后的調(diào)用中，該參數(shù)可以為下列值之一：

SW_FORCEMINIMIZE：在WindowNT5.0中最小化窗口，即使擁有窗口的線程被掛起也會(huì)最小化。在從其他線程最小化窗口時(shí)才使用這個(gè)參數(shù)。

SW_HIDE：隱藏窗口并激活其他窗口。

SW_MAXIMIZE：最大化指定的窗口。

SW_MINIMIZE：最小化指定的窗口并且激活在Z序中的下一個(gè)頂層窗口。

SW_RESTORE：激活并顯示窗口。如果窗口最小化或最大化，則系統(tǒng)將窗口恢復(fù)到原來的尺寸和位置。在恢復(fù)最小化窗口時(shí)，應(yīng)用程序應(yīng)該指定這個(gè)標(biāo)志。

SW_SHOW：在窗口原來的位置以原來的尺寸激活和顯示窗口。

SW_SHOWDEFAULT：依據(jù)在STARTUPINFO結(jié)構(gòu)中指定的SW_FLAG標(biāo)志設(shè)定顯示狀態(tài)，STARTUPINFO 結(jié)構(gòu)是由啟動(dòng)應(yīng)用程序的程序傳遞給CreateProcess函數(shù)的。

SW_SHOWMAXIMIZED：激活窗口并將其最大化。

SW_SHOWMINIMIZED：激活窗口并將其最小化。

SW_SHOWMINNOACTIVATE：窗口最小化，激活窗口仍然維持激活狀態(tài)。

SW_SHOWNA：以窗口原來的狀態(tài)顯示窗口。激活窗口仍然維持激活狀態(tài)。

SW_SHOWNOACTIVATE：以窗口最近一次的大小和狀態(tài)顯示窗口。激活窗口仍然維持激活狀態(tài)。

SW_SHOWNORMAL：激活并顯示一個(gè)窗口。如果窗口被最小化或最大化，系統(tǒng)將其恢復(fù)到原來的尺寸和大小。應(yīng)用程序在第一次顯示窗口的時(shí)候應(yīng)該指定此標(biāo)志。

不過順便說一句，SendKeys會(huì)偶爾造成指令丟失，不可避免。不管你激活窗口還是最大化窗口或者鎖定都沒辦法完全避免。

VB.NET2008從網(wǎng)上找到兩個(gè)函數(shù)，一個(gè)是獲得CPUID，另一個(gè)是獲得MAC地址，提示若干位定義的類型。

缺少system.management.dll引用

在項(xiàng)目名右鍵--添加引用--找到system.management 確定，然后...就沒然后了，就行了

新聞名稱：vb.net插入獲取id的簡(jiǎn)單介紹
文章分享：http://m.jiaotiyi.com/article/dscepij.html