using select statement and in the where clause mention the criteria as ur combo box....and in ur reader assign the value to the text box....
Try
Dim myCommand As SqlCommand
myCommand = New SqlCommand("SELECT * FROM tablename where studentname='" & Combobox1.Text & "'", Connection)
Dim reader As SqlDataReader = myCommand.ExecuteReader
While reader.Read
txtRollID.Text = reader("RollID")
End While
reader.Close()
Catch ex As Exception
MsgBox("Error Connecting to Database: " & ex.Message)
End Try
the query works for a single table and not multiple tables.....it was showing some data type error....
anyways i got it working... First I took the exact values that were there in the tables to text files and then used the same above code...and it worked...
I have the complete SQL data in text files. There are multiple tables and the corresponding text files.
I tried to do the bulk insert but always got some new error.
Please help me to get an answer.
My code
Imports System.IO
Imports System.Data.SqlClient
Public Class Form2
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim FileName As String
Dim dbstatus As Boolean
Dim sr As StreamReader
Dim line As String
Dim linesCount As Integer
Dim lines As String()
Dim i, j As Integer
Dim Names_Of_Tables() As String
Dim myconn As SqlConnection = New SqlConnection
dbstatus = Open_NDB_Connection(myconn)
Dim dbCmd As SqlCommand = New SqlCommand()
Names_Of_Tables = {"Local_IP_Config", "Login_Informations","Remote_IP_Config", "Restricted"}
For i = 0 To Names_Of_Tables.Length - 1
FileName = "D:\DATA\" & Names_Of_Tables(i) & ".txt"
If File.Exists(FileName) Then
Debug.Print("Filename: " + FileName)
Debug.Print("Names_Of_Tables: " + Names_Of_Tables(i))
'If FileName = Names_Of_Tables(i) Then
sr = New StreamReader(FileName)
lines = IO.File.ReadAllLines(FileName)
linesCount = Integer.Parse(lines.Length)
Debug.Print(FileName + " lines = " + linesCount.ToString)
line = sr.ReadLine()
Try
For j = 0 To linesCount - 1
dbCmd = New SqlCommand("BULK INSERT " & Names_Of_Tables(i) & " FROM '" & FileName & "' WITH (FIELDTERMINATOR = '\t', ROWTERMINATOR = '\n')", myconn)
Debug.Print("Query: " + dbCmd.CommandText)
dbCmd.ExecuteNonQuery()
line = sr.ReadLine()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
'End If
Else
MsgBox("File " + FileName + " does not exists")
End If
Next
End Sub
End Class
JoptionPane returns the int values 0 or 1.... yes means 0 and no means 1.... if I select the No button with the Tab key and press Enter key it returns 0 instead of 1 and if I click on the No button with the help of mouse it gives the correct value that means 1.
I have a Java program which is using a JOptionPane in it.
eg. Are you sure u want to close the application?
Yes No
When I click with the mouse on the No button it works correctly but if I select the No button using the TAB key and press enter key the application still closes.
Can anyone tell me whats going wrong
public class WindowHandler extends WindowAdapter
{
public void windowClosing(WindowEvent e)
{
int OptionChoosed=JOptionPane.showConfirmDialog(null, "<html><p><font color=\"#FF8C00\" " +
"size=\"4\" face=\"Book Antiqua\">Close the Application ?"+
"</font></p></html>" ,"Warning",JOptionPane.YES_NO_OPTION);
System.out.println(OptionChoosed);
if (OptionChoosed==0)
{
try
{
if (databaseInformationModel != null)
{ // may have failed to be initialized for some reason
JOptionPane.showMessageDialog(null,"ABCD" +OptionChoosed,"null",JOptionPane.WARNING_MESSAGE); //just a debugger
databaseInformationModel.close(); // we want to shut it down and compact it before exiting
System.exit(0);
}
}
catch (Exception e1){e1.printStackTrace();}
}
else if (OptionChoosed==1)
{
System.out.println(OptionChoosed+"Do nothing");
}
JOptionPane.showMessageDialog(null,"OUT" +OptionChoosed,"null",JOptionPane.WARNING_MESSAGE); //just a debugger
}//windowClosing
}//WindowHandler
I need the button to react to the mouse listener as well as the key listener depending on the users choice
Is it possible to disable the windows key when the application is running??
Suppose I am running a particular application....and if the user press the windows key or clicked on the windows key on the task bar it shud prompt a message box that user is not allowed to press or click the windows key....
if u use the code what jezguitarist30 has given u can face one issue that is... Suppose there are 10 Staffs in the database i.e. Staff ID - 0010 will be the last id in ur database and in case Staff ID - 0003 is deleted and then again if u go and add some new id then according to ur count it will get 10 and then it will be difficult to add since it will be a primary key issue.... think on this....
Dim myCommand As SqlCommand
myCommand = New SqlCommand("SELECT StaffCode,StaffName,Gender FROM Staff WHERE StaffCode='" & Me.txtStaffCode & "'", cnn)
Dim reader As SqlDataReader = myCommand.ExecuteReader
If reader.HasRows()
While reader.Read
'txtStaffCode.Text = reader("StaffCode")
txtStaffName.Text = reader("StaffName")
cboGender.Text = reader("Gender")
End While
Else
MsgBox("No record found.","Not Found")
End If
reader.Close()
Public Function GetData() As DataView
'Open_DB_Connection()
Dim SelectQry = "SELECT * FROM TableName"
Dim SampleSource As New DataSet
Dim TableView As DataView
Try
Dim SampleCommand As New SqlCommand()
Dim SampleDataAdapter = New SqlDataAdapter()
SampleCommand.CommandText = SelectQry
SampleCommand.Connection = Connection
SampleDataAdapter.SelectCommand = SampleCommand
SampleDataAdapter.Fill(SampleSource)
TableView = SampleSource.Tables(0).DefaultView
Catch ex As Exception
'Debug.Print("Exception: ")
Throw ex
End Try
'Close_DB_Connection()
Return TableView
End Function
G_Waddell - I browsed through the link but it shows various connections for instance and the local host...
I just want to display the SQL server available on the local machine in a combo box or a list box...
Can anyone tell me how to get the SQL server name from the local machine...no using database connection...and no network servers... I tried seraching everything...
Actually the server name differ from PC to PC...when my colleagues do coding their server name is localhost\SQLexpress but same is not the condition in my PC its only localhost and so their code wont work in my machine and then I have to do the changes according to my SQL server name...and we are not sure what will be the one on clients machine....
what I want to do is get the servername before the database connections proceed...
is it possible to get the localhost name of the same machine....
'Open Connection
Dim upCommand As OleDbCommand
upCommand = New OleDbCommand("Update Value set Colname ='" + Textbox1.Text + "'", Connection)
upCommand.ExecuteNonQuery()
'Close connection
For inserting
'Open Connection
Dim myCommand As OleDbCommand
myCommand = New OleDbCommand("INSERT INTO Tablename Values('" + txtID.Text + "','" + txtName.Text + "')", Connection)
Dim DBReader As OleDbDataReader = myCommand.ExecuteReader
DBReader.Close()
'Close Connection
I had to save the data as INP1 - first 3 characters and last integer
We cant save the alphanumeric as integer
but what I had done was....I had one temp table....which had the integer value... every time I need to increment the value I used to check the value in that table and update in my new table....that had datatype as varchar...so everytime it used to get incremented correctly....after the insert statement then update the temp table by 1....
When ur application starts for the very first time allow the user to save the database location in a particular text file....
for that u have to give the openfiledialog box that will take the file location and save the location....
so that during the connection u can get the database path details from the text file itself....
the next time onwards the user shud only check if the filename is present in ur textfile...if the textfile is empty or the database is invalid it shud prompt the user with error msg and again ask to relocate the database...
if its not clear do post again...will help u further...
'Open Connection
Dim myCommand As SqlCommand
myCommand = New SqlCommand("SELECT ProdName from HMS.dbo.Product where Inventory < ReorderLimit", Connection)
Dim reader As SqlDataReader = myCommand.ExecuteReader
While reader.Read()
For RCnt As Integer = 0 To dgvInventory.Rows.Count - 1
If dgvInventory.Rows(RCnt).Cells("Product").Value = reader("ProdName") Then
dgvInventory.Rows(RCnt).DefaultCellStyle.BackColor = Color.MediumPurple
dgvInventory.Rows(RCnt).DefaultCellStyle.ForeColor = Color.White
End If
Next
End While
reader.Close()
'Close Connection
'Open_DB_Connection
Try
Dim myCommand As SqlCommand
myCommand = New SqlCommand("SELECT * FROM Tablename where ID='" & combobox1.Text & "'", Connection)
Dim reader As SqlDataReader = myCommand.ExecuteReader
While reader.Read
txtID.Text = reader("ID")
txtName.Text = reader("Name")
txtCost.Text = reader("Cost")
End While
reader.Close()
Catch ex As Exception
MsgBox("Error Connecting to Database: " & ex.Message)
End Try
'Close_DB_Connection
u can write in the textbox textchange event with the sql query using the like condition....
'Open Connection
Try
Dim myCommand As New OleDbCommand
With myCommand
.CommandText = "SELECT ID , (FirstName +' '+LastName) as Name FROM TableName where ID like '" & Textbox1.Text & "%" + "' order by ID"
.CommandType = CommandType.Text
.Connection = Connection
End With
Dim dt As New DataTable
dt.Load(myCommand.ExecuteReader)
With DatagridView1
.AutoGenerateColumns = True
.DataSource = dt
End With
Catch ex As Exception
MsgBox("Error in select query: " + ex.Message)
End Try
'Close Connection
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim dbfFileFolder As String = OpenFileDialog1.FileName
Dim stFileName As String
Dim MyFile As FileInfo = New FileInfo(dbfFileFolder)
stFileName = MyFile.Name
If stFileName = "GNDITEM.DBF" Then
Form2.ShowDialog() 'this is my Form2
Else
MsgBox("error")
End If
End If
End Sub
End Class
Actually ur sql query wont help u.... if u select the first "01" from sessionID , second "02" from courseID , third "02" from levelID then the database would store something like 01020200001
suppose u have selected the first "01" from courseID and when u run the query the value returned will be 01020200001 and this value will be added by 1,then it would return something else which will create a chaos....
'Form3.vb
Public Class Form3
Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
StartPosition = FormStartPosition.CenterScreen
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
'Form2.vb
Public Class Form2
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
WindowState = FormWindowState.Maximized
FormBorderStyle = Windows.Forms.FormBorderStyle.None
End Sub
End Class
'Form1.vb
Public Class Form3
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Form2.BackColor = Color.DarkGray
Form2.TransparencyKey = BackColor
Form2.Opacity = 0.7
Form2.Show()
Form3.ShowDialog()
Form2.Close()
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
End Sub
End Class
whatever waqasaslammmeo has given that is correct.... what else do u want to display in ur datetimepicker??? by setting the format to time and setting the showupdown property as true the calendar should not drop down....
what do u mean by changing time....the up down buttons will change the time...even u can bring ur cursor over there and make the changes accordingly....
when u click on the calculate button make sure that both the text boxes are not empty...if so prompt the error....
if textbox1.Text="" or Textbox2.Text="" then
Msgbox("Mandatory Info")
else
'ur calculation code
End If
below code u can do for entering only numbers....it has to be written in ur textbox key press event
If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then
e.Handled = True
End If
If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then
e.Handled = False
End If
What does ur textbox3, textbox4 and textbox5 hold???
I need help to disable the parent window form as soon as the user will open the child form....
for eg...consider daniweb...when we click on member login the background form gets grayed out....
Disabling the form is not the option cause it will just disable all the controls of the form....but I need a grayed out screen between the current child form and the parent form....
note - the parent form is not the MDI form...it is just a normal window form
and when the child form is open and if the user clicks on the main form without closing the child form then the screen should show some movement...
I tried disabling the form...changing the background of the form to opaque....but could not get through it....
If you would have been storing the file path then you could have used the following code
Dim img As New DataGridViewImageColumn()
Dim inImg As Image = Image.FromFile("C:\Users\pooja\Desktop\images\abc\Logo.jpg")
img.Image = inImg
DataGridView1.Columns.Add(img)
img.HeaderText = "Image"
img.Name = "img"
