RichTextBox1.Text = ""
Dim lngI As Long
For lngI = 0 To List1.ListCount - 1
If Combo1.ListIndex = Combo1.ListCount - 1 Then
        Combo1.ListIndex = 0
        
    Else
        Combo1.ListIndex = Combo1.ListIndex + 1
        Text2.Text = Combo1.Text
    End If
'       Text1.Text = ""
   Dim result As String
Dim url As String
Dim winHttpReq As Object
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
url = "http://example.com"
winHttpReq.Open "GET", url, False
'winHttpReq.SetRequestHeader "User-Agent", "SonyEricssonT618/R401 Profile/MIDP-1.0 Configuration/CLDC-1.0"
winHttpReq.SetRequestHeader "User-Agent", Text2.Text
winHttpReq.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
winHttpReq.SetRequestHeader "Accept-Language", "en-US,en;q=0.8,en-us;q=0.5,en;q=0.3"
'winHttpReq.SetRequestHeader "Accept-Encoding", "gzip,deflate"
winHttpReq.SetRequestHeader "Accept-Charset", "windows-1251,utf-8;q=0.7,*;q=0.7"
winHttpReq.SetRequestHeader "Keep-Alive", "115"
winHttpReq.SetRequestHeader "Connection", "keep-alive"
winHttpReq.SetProxy 2, List1.List(lngI), ""
winHttpReq.Send
'result = winHttpReq.ResponseText
   'RichTextBox1.Text = RichTextBox1.Text & winHttpReq.Status & vbCrLf & 

Select all Open in new window

dim rsFieldOneObject
dim connectionStringToAccess
Set rsFieldOneObject = Server.CreateObject("ADODB.Recordset") 
Set connectionStringToAccess = Server.CreateObject ("ADODB.Connection")
connectionStringToAccess.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & server.mappath("db/matrix-1.accdb")       	

Select all Open in new window

                 dim objRs
		Set objRs = Server.CreateObject("ADODB.Recordset")
		dim sicSQL
		sicSQL= "Select distinct(SIC), SIC_Description from MaxtixTable2"
		objRs.Open sicSQL, connectionStringToAccess
		Response.Write "<select name='sicInput' required>"
		response.write " <option value='' selected> SIC Choice... </option>"

Select all Open in new window

Option Explicit

Private Type DOCINFO
  pDocName As String
  pOutputFile As String
  pDatatype As String
End Type

Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _
    hPrinter As Long) As Long
Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal _
    hPrinter As Long) As Long
Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal _
    hPrinter As Long) As Long
Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
    "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _
    ByVal pDefault As Long) As Long
Private Declare Function StartDocPrinter Lib "winspool.drv" Alias _
    "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
    pDocInfo As DOCINFO) As Long
Private Declare Function StartPagePrinter Lib "winspool.drv" (ByVal _
    hPrinter As Long) As Long
Private Declare Function WritePrinter Lib "winspool.drv" (ByVal _
    hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _
    pcWritten As Long) As Long
Private Declare Function AbortPrinter Lib "winspool.drv" (ByVal _
    hPrinter As Long) As Long

Private Sub Command1_Click()
    Dim lhPrinter As Long
    Dim lReturn As Long
    Dim lpcWritten As Long
    Dim lDoc As Long
    Dim sWrittenData As String
    Dim MyDocInfo As DOCINFO
    
    Dim intBarcode As String
    intBarcode = "12345"
    
    lReturn = OpenPrinter(Printer.DeviceName, lhPrinter, 0)  ' \\192.168.1.38\Argox

    If lReturn = 0 Then
        MsgBox "The Printer Name 

Select all Open in new window

Private Sub ComboFindByRef_Change()
    Dim qd As QueryDef, s As String
    On Error Resume Next
    If Me.ActiveControl.Name = "ComboFindByRef" Then
        s = ComboFindByRef.Text
    Else
        s = ComboFindByRef.Column(1)
    End If
    Set qd = CurrentDb.QueryDefs("EmployeesSearchPTQry")
    'qd.sql = "select * from [dbo].[EmployeestblSelectBy" & "Ref" & "PH] ('" & Me.ComboFindByRef.Text & "','" & Nz(ComboFindByRefField, "ContactPerson") & "')"
    qd.sql = "exec [dbo].[PH_EmployeestblSelectByRef] '" & s & "','" & Nz(ComboFindByRefField, "ContactPerson") & "'"
   qd.Connect = "ODBC;driver={SQL Server};server=...;"

    Me.ComboFindByRef.RowSource = "EmployeesSearchPTQry"
    
    SendKeys "{F4}"
End Sub

Select all Open in new window

private void button1_Click(object sender, EventArgs e)
{
/* Clear the list view items */
listView1.Clear();

// Stream on to the textfile
var sr = new StreamReader("data.txt");

//create an object list type of string to store your data later
List<string> l = new List<string>();

//variable to hold the data from the textfile
string data = "";

//loop through the data line by line
while ((data = sr.ReadLine()) != null)
{
// since it is comma separated split it with comma and check if it is equal to your textbox value
if (data.Split(',')[2].Trim().Equals(textBox1.Text))
{
// if found store the data to list 

//date
l.Add(data.Split(',')[0]);

//name
l.Add(data.Split(',')[1]);

//unique id
l.Add(data.Split(',')[2]);
// break the loop since you found it already no need for the loop to continue
break;
}
}
//dont forget to close the streamreader
sr.close();

//create a listview item object and pass the data to the list view
var item = new ListViewItem(l.ElementAt(0));
item.SubItems.Add(l.ElementAt(1));
item.SubItems.Add(l.ElementAt(2));
listView1.Items.Add(item);

}

Select all Open in new window

.lstCategory.ListIndex = 0

Select all Open in new window

Private Sub Workbook_Open()
Dim intIndex As Integer

With Worksheets("Main Menu")
    For intIndex = 10 To .UsedRange.Rows.Count
        .Cells(intIndex, 1).Value = ""
        Next
        .Activate
        .lstCategory.ListIndex = 0
End With

Select all Open in new window