Visual Basic

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
 
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class Service1
    Inherits System.Web.Services.WebService
 
    <WebMethod()> _
    Public Function GetArrayOfStrings() As String()
        Dim strings As String() = {"Some text 1", "Some text 2", "Some text 3"}
 
        return strings
    End Function
 
    <WebMethod()> _
    Public Function GetArrayOfStrings2() As String()
        Dim strings(3) As String
 
        strings(0) = "Some text 1"
        strings(1) = "Some text 2"
        strings(2) = "Some text 3"
 
        return strings
    End Function
 
    <WebMethod()> _
    Public Function GetArrayListOfStrings() As ArrayList
        Dim list As New ArrayList
        list.AddRange(New String() {"Some text 1", "Some text 2", "Some text 3"})
 
        return list
    End Function
 
    <WebMethod()> _
    Public Function GetListOfStrings() As List(Of String)
        Dim list As New List(Of String)
        list.AddRange(New String() {"Some text 1", "Some text 2", "Some text 3"})
 
        return list
    End Function
End Class

nlarson11 wrote:

to answer your question:
the last one - casting issue from a string array to a list

ankur0101 wrote:

all 4 clients r connected to server via LAN.
Entry work will get done from clients
Database ( SQL ) is on Server.
so i dont know the technology of networking in VB.NET

ankur0101 wrote:

when client is doing something it will record that all in another database
like >>>>>>>>

ankur0101 wrote:

when client 2 is finding something ( ther is a search section )
or like that

Me.UsernameTextBox.Text = ""
Me.PasswordTextBox.Text = ""
...
Username = ""
Password = ""

Private Sub ClearUsernamePasswordTextBoxes()
    UserNameTextBox.Text = ""
    PasswordTextBox.Text = ""
End Sub

ClearUsernamePasswordTextBoxes()

Private Sub SubmitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SubmitButton.Click
Dim con As New ADODB.Connection
        Dim rs As New ADODB.Recordset

        With con
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Open("db1.mdb")
        End With

        rs.Open("Select * from Table1", con, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

        Dim pSn As Boolean
        Dim uNme As String

        unme = StrConv(UsernameTextBox.Text, VbStrConv.ProperCase)

        rs.MoveFirst()

        Do While Not rs.EOF
            If unme = rs(0).Value And PasswordTextBox.Text = rs(1).Value Then
                MsgBox("User name and Password Accepted", MsgBoxStyle.Information)
                Me.Hide()
                Form1.Show()
                pSn = True
        Exit Do
            Else
                rs.MoveNext()
                pSn = False
            End If
        Loop

        If pSn = True Then

        ElseIf pSn = False Then
            MsgBox("The username or password is incorrect. Please retype the Username and password.", MsgBoxStyle.Exclamation, "Login")
            UsernameTextBox.Clear()
            PasswordTextBox.Clear()
            UsernameTextBox.Focus()
        End If

End Sub