Comments by Sissy Ram (Top 23 by date)

My PC in windows 10 64 bit version.
Destination is also the same.

Team,I found the screen resolution is different between PC's.
My pc has resolution 1600 * 900.
Desination Pc has only 1366 * 768.
Is there any solutions or suggestions for this issue?

Thanks for your suggestion frnds

Please anyone atleast reply

anyone there?
kindly help me as soon as possible please.

that code is not working friend,
say me a example,
Here i edited that line as like this but error shown

acList.AddRange("select TCODE from Tailor ")

No that is not working friend

No i resolved it myself.
The problem still occurs while i am using database file format as "accdb".
So i convert 'accdb' to 'mbd'
and used,

Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\DB.mdb")

Now it works fine.
Thank you for all your supports friends.

As a message box or somewherelse in the sql query

Should i wanna to add any files to support GetByValue query?
Because it shows as an error GetByValueQuery is not declared

that is ok cool sir i have another problem in my form.
if i make upadation in runtime it works.
but after restarting the form the updation are not diplaying.
and here is my code
Imports System.Data
Imports System.Data.OleDb
Public Class _01_TAILOR_SETUP
Dim con As OleDbConnection
Dim cmd As OleDbCommand
Dim da As OleDbDataAdapter
Dim ds As DataSet
Private Sub _01_TAILOR_SETUP_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed

End Sub

Private Sub _01_TAILOR_SETUP_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Dim result As DialogResult = MsgBox("do you want to close?", MsgBoxStyle.YesNo)
If result = Windows.Forms.DialogResult.Yes Then
e.Cancel = True
_00_MAIN.Show()
Me.Hide()
ElseIf result = Windows.Forms.DialogResult.No Then
e.Cancel = True
End If
End Sub

Private Sub _01_TAILOR_SETUP_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DBDataSet.TAILOR' table. You can move, or remove it, as needed.
' Me.TAILORTableAdapter.Fill(Me.DBDataSet.TAILOR)
ComboBox1.Items.Add("Available")
ComboBox1.Items.Add("Terminated")
ComboBox1.Items.Add("Both")
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DB.accdb")
con.Open()
da = New OleDbDataAdapter("Select * from tailor", con)
ds = New DataSet()
da.Fill(ds, "tailor")
DataGridView1.DataSource = ds.Tables(0)
con.Close()
End Sub


Private Sub ComboBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBox1.KeyDown

If e.KeyCode = Keys.Escape Then
If TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" And ComboBox1.Text = "Select value" Then
MsgBox("Fill appropriate values")
TextBox3.Focus()
Else
Dim result As DialogResult = MsgBox("Do you want to save", MsgBoxStyle.YesNo)
If result = Windows.Forms.DialogResult.Yes Then
con.Open()
cmd = New OleDbCommand("INSERT INTO Tailor (TCODE, TNAME, TADDRESS,STATUS) VALUES ('" & TextBox3.Text & "', '" & TextBox2.Text & "', '" & TextBox1.Text & "', '" & ComboBox1.Text & "');", con)
cmd.ExecuteNonQuery()
MsgBox("INSERTED")
da = New OleDbDataAdapter("Select * from tailor", con)
ds = New DataSet()
da.Fill(ds, "tailor")
DataGridView1.DataSource = ds.Tables(0)
con.Close()
ElseIf result = Windows.Forms.DialogResult.No Then
End If
End If
End If
End Sub


End Class
i need to resolve this please help me

I need to set to my form fit into screen resolution

That works fine

I tried this simple code but how to set this for all textboxes in the form?
Private Sub textBox1_KeyPress(sender As Object, e As KeyPressEventArgs)
If e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "-"C Then
'allow backspace for deleting and minus simbol
e.Handled = Not Char.IsNumber(e.KeyChar)
'allow numbers only
If Not e.Handled Then
Dim num As Integer = Integer.Parse(String.Format("{0}{1}", If(textBox1.Text = String.Empty, "", textBox1.Text), e.KeyChar.ToString()))
If num > 11 Then
e.Handled = True
End If
End If
End If
End Sub

Help me please

vb .net, windows forms

this illustrate for asp .net and i need it for vb .net

the links shows crystal reports for c# but i need for vb .net