Example Script

Imports System

Imports System.IO

Imports System.Windows.Forms

Imports Microsoft.VisualBasic

Imports System.Data.SqlClient

Namespace WinTr

Public Class MainClass

       Public Sub Load

       '------- Script Start Line -------

       Dim SQL_cn As New SqlConnection()

         SQL_cn.ConnectionString = "Server=(local)\WinTr;uid=sa;pwd=12341234;database=Example_Project"

         SQL_cn.Open()

         Dim SQL_Ins As String

         'son kayıt sayısı

         SQL_Ins = "SELECT COUNT(*) FROM Table1"

         Dim SQL_cmdnon As SqlCommand = New SqlCommand(SQL_Ins, SQL_cn)

         Dim Last_Value As String = SQL_cmdnon.ExecuteScalar

       msgbox(Last_Value)

       '------- Script End Line -------

       End Sub

End Class

End Namespace