孔雀魚白子生了

select * into 使用法

select * into erpa.dbo.book from erpb.dbo.book

vbnet DataGridView 自動選取列 (由 第1筆到最後1筆)

If DGridV.RowCount > 0 Then
   For i As Integer = 0 To DGridV.Rows.Count - 1
       DGridV.CurrentCell = DGridV.Rows(i).Cells(0)
       '底下可加入各程序來處理cell 應用
   next
end if

利用SQL指令找出資料庫的資料表,資料表的欄位名,資料表的PK欄位

參考引用
--
找出資料庫裡所有的資料表

SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES ORDER BY TABLE_NAME

依資料表名稱找出所有欄位資訊

SELECT COLUMN_NAME,ORDINAL_POSITION,DATA_TYPE,CHARACTER_MAXIMUM_LENGTH FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'Table1'

依資料表名稱找出此表的PK欄位

SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE WHERE TABLE_NAME = 'Table1'

電子憑證相關問題

憑證問題
--
一般會問到的問題,這兒差不多都有了喔
多看看不錯喔,當遇到問題就能排除或找方法

vbnet web 點擊 click

範例1:
HtmlElements elements = this.webBrowserControl.GetElementsByTagName("Input");

foreach(HtmlElement currentElement in elements)
{
currentElement.InvokeMember("click");
}

Dim elements As HtmlElements = Me.webBrowserControl.GetElementsByTagName("Input")
For Each currentElement As HtmlElement In elements
    currentElement.InvokeMember("click")
Next



範例2:
Me.WebBrowser1.Navigate(New Uri("http://www.yahoo.com"))

Me.ListBox1.Items.Add("Type" & "-->" & "Name")
For Each element As HtmlElement In Me.WebBrowser1.document.All
Me.ListBox1.Items.Add(element.TagName() & "-->" & element.Id)
Next


範例3:***本組ok***
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.WebBrowser1.Navigate(New Uri("http://www.yahoo.com"))
        Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("button")
        For Each curElement As HtmlElement In theElementCollection
            Dim controlName As String = curElement.GetAttribute("name").ToString
            controlName = "login"
                curElement.InvokeMember("click")
        Next
    End Sub


 範例4:good 引用 
Private Sub LogInSub()
        On Error GoTo err1
        WebBrowser1.Navigate(" webaddress")
        While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        End While
        Dim theElementCollection As HtmlElementCollection
        theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
        For Each curElement As HtmlElement In theElementCollection
            Dim controlName As String = curElement.GetAttribute("id").ToString
            If controlName = "email" Then
                curElement.SetAttribute("Value", "username for site")
            End If
        Next
        theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
        For Each curElement As HtmlElement In theElementCollection
            Dim controlName As String = curElement.GetAttribute("id").ToString
            If controlName = "password" Then
                curElement.SetAttribute("Value", "password for site")
            End If
        Next
        WebBrowser1.Document.Forms("login_pw").InvokeMember("submit")
err1:
        Exit Sub
    End Sub

VB6 控制 IE 填入值及點擊按鈕

參考引用
--
 ' 需引用 iframe.dll 元件
' 需引用 MSHTML.TLB 元件

Dim WithEvents IE As InternetExplorer
Dim Doc As HTMLDocument

Private Sub Command1_Click()
    IENavigate "http://xxxxx"
End Sub

Private Sub Command2_Click()
    IENavigate "http://www."
End Sub

Private Sub Command3_Click()
    ObjSetValue "input", "ctl00$TzuhuHolder$usridTxt", tb_usridTxt.Text
    ObjSetValue "input", "ctl00$TzuhuHolder$nameTxt", tb_nameTxt.Text
    ObjSetValue "select", "ctl00$TzuhuHolder$yearDDL", cb_yearDDL.Text
    ObjSetValue "select", "ctl00$TzuhuHolder$monthDDL", cb_monthDDL.Text
End Sub

' 建立IE及開啟某網頁
Sub IENavigate(URL As String)
    If IE Is Nothing Then Set IE = New InternetExplorer
    IE.Visible = True
    IE.Width = 1024 + 15
    IE.Height = 640
    IE.navigate URL
End Sub

' 在 IE 載入完成時，要做的事情
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim BObj As Object
    Set BObj = Nothing
    Set Doc = IE.document
    If UrlCheck(URL, "reminder.aspx") Then
    Call ButtonCheck("ctl00$TzuhuHolder$mybutton")
   
    ElseIf UrlCheck(URL, "declare.aspx") Then
   
    ElseIf UrlCheck(URL, "process.aspx") Then
   
    ElseIf UrlCheck(URL, "index.aspx") Then
 Call ButtonCheck("ImageButton1")

    End If
End Sub

' 控制改變某物件的值
Sub ObjSetValue(ObjTagName As String, ObjID As String, ObjValue As String)
    Dim I As Long, BObj As Object
    Dim DocIB As Object
    Set BObj = Nothing
    ObjTagName = LCase(ObjTagName)
    Set DocIB = Doc.getElementsByTagName(ObjTagName)
    For I = 0 To DocIB.length - 1
    If LCase(DocIB(I).id) = LCase(ObjID) Or LCase(DocIB(I).Name) = LCase(ObjID) Then
    Set BObj = Doc.getElementById(ObjID)
    Exit For
    End If
    Next
    If Not BObj Is Nothing Then
    Select Case ObjTagName
    Case "input", "select"
    BObj.Value = ObjValue
    End Select
    End If
End Sub

' 控制點擊某按鈕 (Button) ( Click )
Function ButtonCheck(ObjID As String) As Boolean
    ButtonCheck = False
    If Doc Is Nothing Then Exit Function

    Dim I As Long, BObj As Object
    Dim DocIB As Object
    Set BObj = Nothing
    Set DocIB = Doc.getElementsByTagName("input")
    For I = 0 To DocIB.length - 1
    If LCase(DocIB(I).id) = LCase(ObjID) Or LCase(DocIB(I).Name) = LCase(ObjID) Then
    Set BObj = Doc.getElementById(ObjID)
    Exit For
    End If
    Next

    If Not BObj Is Nothing Then
    BObj.disabled = False
    BObj.Click
    End If

End Function

Function UrlCheck(URL As Variant, ObjID As String) As Boolean
    UrlCheck = LCase(Right(URL, Len(ObjID))) = LCase(ObjID)
End Function

WCF教學

米米貓學開發: WCF教學
--
此範例是用 C# 的喔
寫得還不錯,初學者必看喔

另外,VBNET 的可參考此處(很多細節都有說喔!)
mis2000lab WCF 新手入門 #1 (有很多篇,要慢慢學)