Posts by Jx_Man

Hi...Welcome to Daniweb Friend :)

Hi...Welcome to Daniweb Friend :)

Hi...Welcome to Daniweb Friend :)

Hi Nina...Welcome to Daniweb Friend :)

just set WindowState on form properties as minimize

seems like antivirus program

'In Module
'Declare outside of class
Imports System.Data
Imports System.Data.SqlClient

Module Koneksi
    Public conn As SqlConnection
    Public Function GetConnect()
        conn = New SqlConnection("server = MyServerName;database = MyDatabaseName;Trusted_Connection = yes")
        Return conn
    End Function
End Module

Ex : load data in datagrid

'In Form
'Declare outside of class
Imports System.Data
Imports System.Data.SqlClient

'Procedure To show data in DataGrid
Private Sub ShowDataGrid()
    Dim conn As SqlConnection
    Dim cmdStudent As New SqlCommand
    Dim daStudent As New SqlDataAdapter
    Dim dsStudent As New DataSet
    Dim dtStudent As New DataTable

    conn = GetConnect()
    Try
		cmdStudent = conn.CreateCommand
		cmdStudent.CommandText = "SELECT * FROM YourTableName"
		daStudent.SelectCommand = cmdStudent
		daStudent.Fill(dsStudent, "YourTableName")
		dgStudent.DataSource = dsStudent
		dgStudent.DataMember = "YourTableName"
		dgStudent.ReadOnly = True
    Catch ex As Exception
        MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OKOnly, "Connection Error !!")
    End Try
End Sub

' Call procedure ShowDataGrid() on event Form Load 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ShowDataGrid()  ' Load data to view in data grid
End Sub

yes i know it for c#...but you can get a logic from that.
That's i why still post it.
Good luck :)

See

Hi..Welcome to Daniweb Friend :)

Hi..Welcome to Daniweb Friend :)

Hi..Welcome to Daniweb Friend :)

Welcome aboard too indiecorporate... :)

NB: btw kalo post usahakan ada bhs inggrisnya, soalnya membernya ntar pada marah.

See this

put this code on module (my module named koneksi)

'In Module
'Declare outside of class
Imports System.Data
Imports System.Data.SqlClient

Module Koneksi
    Public conn As SqlConnection
    Public Function GetConnect()
        conn = New SqlConnection("server = MyServerName;database = MyDatabaseName;Trusted_Connection = yes")
        Return conn
    End Function
End Module

Private Sub Timer1_Timer()
'Put timer on form and set interval to 1000 (In the properties window)

Label1.Caption = Format(Now, "hh:mm:ss")

End Sub

- What tabs?

Show us your effort, Post your code.
And don't hijack other thread please...

post your insert code

What i means in Click Event of strip menu you can call about form.
Ex :

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
    Dim a As New About
    a.Show
End Sub

Refresh Datagrid.

Great Code iamthwee :)

1. you can hide close, minimize and maximize in form properties.
2. Just Call About form in menu strip click event.
3. Set splash form as Startup object.
Project -> ProjectName Properties
Properties Pages will appear. you can select splash screen as Startup Object

>> ListBox1.Items.Add(Prc(x).ProcessName)

thanks iamthwee for the correction.

First, you need the following declarations:

Private Const EM_GETLINECOUNT As Integer = &HBA
    Private Const EM_GETLINE As Integer = &HC4
    Private Const EM_LINELENGTH As Integer = &HC1
    Private Const EM_LINEINDEX As Integer = &HBB

    Private Declare Function SendMessageINT Lib "user32.dll" _
        Alias "SendMessageA" (ByVal hWnd As IntPtr, _
        ByVal wMsg As Integer, ByVal wParam As Integer, _
        ByVal lParam As IntPtr) As Integer

Now, I placed this code in a button click event :
Counter set = 1 to start from second line.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim LineCount As Integer = SendMessageINT(TextBox1.Handle, EM_GETLINECOUNT, 0, IntPtr.Zero)
        Dim counter As Integer = 0
        Dim LineIndex As Integer = 0
        Dim lineLength As Integer
        Dim curLine As String = ""
        Dim stringPTR As IntPtr

        For counter = 1 To LineCount - 1
            'Get Index for line we want to retrieve
            LineIndex = SendMessageINT(TextBox1.Handle, EM_LINEINDEX, counter, IntPtr.Zero)
            'GetLineLength
            lineLength = SendMessageINT(TextBox1.Handle, EM_LINELENGTH, LineIndex, IntPtr.Zero)
            'Create the buffer
            curLine = New String("0"c, lineLength + 2)
            Mid(curLine, 1, 1) = Chr(lineLength And &HFF)
            Mid(curLine, 2, 1) = Chr(lineLength \ &H100)
            'Get the pointer for a buffer
            stringPTR = System.Runtime.InteropServices.Marshal.StringToHGlobalAnsi(curLine)
            'Fill the pointer with the current line
            SendMessageINT(TextBox1.Handle, EM_GETLINE, counter, stringPTR)
            'Read the line
            curLine = System.Runtime.InteropServices.Marshal.PtrToStringAnsi(stringPTR)
            curLine = curLine.Substring(0, lineLength)
            'fill textbox2
            TextBox2.Text = TextBox2.Text + curLine + vbCrLf
            'clear out the space
            System.Runtime.InteropServices.Marshal.FreeHGlobal(stringPTR)
            stringPTR = IntPtr.Zero
        Next

    End Sub

See the pic

No way...
Looking carefully on your toolbox.
See an attachment

You're Welcome :)

i did'tn get what u want exactly...
this part code is how to get string from name, id and year.

Gen = Microsoft.VisualBasic.Right(ye, 2) + Microsoft.VisualBasic.Right(Id, 4) + Microsoft.VisualBasic.Right(Name, 3)

Right Function used to get some string from string as many as u want.
Right(SourceString (String), how much string to get (Int)).

Hi...Welcome to Daniweb Friend :)

HI Eko Welcome to Daniweb Friend :)

Any time

Try This :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Name, Id, ye, Gen As String

        Name = txtName.Text
        Ye = txtYearEnrolled.Text
        Id = txtIDNum.Text

        Gen = Microsoft.VisualBasic.Right(ye, 2) + Microsoft.VisualBasic.Right(Id, 4) + Microsoft.VisualBasic.Right(Name, 3)

        If Name = "" Then
            MsgBox("Name is empty")
        ElseIf ye = "" Then
            MsgBox("Year is empty")
        ElseIf Id = "" Then
            MsgBox("Id Number is empty")
        ElseIf txtYearEnrolled.TextLength > 4 Then
            MsgBox("Year Enrolled text box comtain more than 4 number")
        ElseIf Not IsNumeric(txtYearEnrolled.Text) Then
            MsgBox("Year Enrolled is not a numeric")
        Else
            MsgBox(Gen)
        End If
    End Sub

On Button Click Event :
Dim a As New Form2
a.Show

Hi...Weclome to Daniweb Friend :)
Asal daerah mana?

Hi Shane...Weclome to Daniweb Friend :)

Hi Johny...Weclome to Daniweb Friend :)

Hi...Weclome to Daniweb Friend :)

Hi Carrie...Weclome to Daniweb Friend :)

Hi...Weclome to Daniweb Friend :)

Hi loraswolf...Weclome to Daniweb Friend :)

Hi...Weclome to Daniweb Friend :)

Hi...Weclome to Daniweb Friend :)

Hi...Weclome to Daniweb Friend :)

Hi Keith...Weclome to Daniweb Friend :)

Hi...Weclome to Daniweb Friend :)

Hi...Weclome to Daniweb Friend :)

try This :

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

        CrystalReportViewer1.SelectionFormula = "Date({TableName.FieldName}) >= #" & dtStartDate.Value & "# And Date({TableName.FieldName}) <= #" & dtEndDate.Value & "#"
        CrystalReportViewer1.RefreshReport()

End Sub

Try this :

Private Sub ProcessView()
        Dim Prc As Process()
        Dim x As Integer

        Prc = Process.GetProcesses

        For x = 0 To UBound(Prc)
            ListBox1.Items.Add(Prc.GetValue(x))
        Next
End Sub

actually i got a little confuse here. you want to insert all item in combobox or multiple selected?

it causing your code just insert the selected item.
try to change cstr1 = ListBox1.Items.Item(i)
>> i = 1 --> its not starting with 1 but 0.
First item index is 0 not 1.

For i = 0 To ListBox1.Items.Count - 1
cstr1 = ListBox1.Items.Item(i)
strqry1 = "insert into trans(pid) values('" & cstr1 & "')"
'MessageBox.Show(strqry1)
'If ListBox1.GetSelected(i) = True Then
cmd.CommandText = strqry1
cmd.ExecuteNonQuery()
'End If
Next
MessageBox.Show("Records added")

veena..., great.