Dili1234

this is my first time of creating trigger..I tried to create trigger using mysql to count how many 2007 data in the table when inserting new record but it not working....... My table have more than 50 data... CREATE TRIGGER No_of_Publisher_year Before Insert ON Book FOR EACH ROW SET @Count_No=New.Copyright; …

you want to fliter data from one combo box to another or can you put Sketch about your requirement

this happens due to two reasons 1.You haven't put a primary key 2.put a two condition seperately for two comboboxes

You need to write a query as follows Select username from accounts

Createa form to hold the password and limit the authorztion to access the form or to edit t form

I'm doing a project about lighting.I don't know how tp draw beams does anybody know about it?

You declare the varible as dim no as double=Val(Textbox1.text)

Is there possiblity to send, 5 data(5rows) at one time to the sql database in vb.net2008

I want to retrive data from table to combobox I used this coding though I didn't get an error the outpiut(data) is not displaing in the combobox Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click MessageBox.Show("Please Insert the Sample note no", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) Try myConnection …

Hope this will help you Dim cryRpt As New ReportDocument CrystalReportViewer1.SelectionFormula = "{Product_Details.P_Id}= '" & Textbox1.Text & "'" cryRpt.Load("G:\Sales and inventory system\Product.rpt") CrystalReportViewer1.ReportSource = cryRpt CrystalReportViewer1.Refresh()

When to trying to display data to datagrid view using query i got an error "a column named date already belongs to this datatable in net 2008" Dim dt As New DataTable Try myConnection = New SqlConnection(connectionstring) myConnection.Open() Dim cmd As New SqlClient.SqlCommand With cmd .CommandText = "SELECT [Date],[Totalamount] FROM …

I taking data from 3 tables to crystal report.Tables are 1.Moblization -primary key is Fen_Inovoice_No 2.invovoice details -Primary keys are Fen_Inovoice_No and description 3.Client details-primary key is Contract name I 'm using this query to retrive data Dim cryRpt As New ReportDocument CrystalReportViewer1.SelectionFormula = "{Mobilization.Fen_Inovoice_No}= '" & Varibles.invoice1 & "'" …

I have to tables 1.[Mobilization]-Primary key is [Fen_Inovoice_No] it is the forgien key is of [invovoice details] 2.[invovoice details] the primary keys are [Fen_Inovoice_No],[Item] when I tried to view the data , the all data are not loading to listview why is that? Dim intResponse As Integer intResponse = MsgBox("Please …

do need to put password?

When tried to update the data I got this error "incorrect syntax near '4' Unclosed quotation mark after the character string" Can someone fixed this error Public Sub Save() Dim indate As Date = DateTimePicker1.Value.Date If String.IsNullOrEmpty(TextBox1.Text) Or String.IsNullOrEmpty(TextBox2.Text) Then 'Show your message here MsgBox("Please fill all Data") Else 'Show …

Dim startdate1 As String = DateTimePicker1.Value.Date Dim enddate As String = DateTimePicker2.Value.Date myConnection = New SqlConnection(connectionstring) myConnection.Open() Dim insert As SqlCommand = New SqlCommand(" INSERT INTO Client_Details (Contract_Name ,Client_Name ,VAT_No ,Cilent_Address,Start_Date,End_Date ,Contract_Value,Telephone_No) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & …

When I used the code though there ara no I won't get anwser.I couldn't whatis the error I did. cvowel([],0). vowel([a],Counter):-Counter is 1. vowel([e],Counter):-Counter is 1. vowel([i],Counter):-Counter is 1. vowel([o],Counter):-Counter is 1. vowel([u],Counter):-Counter is 1. vowel([_];[],Counter):-Counter is 0. cvowel([H|T],Counter1):-cvowel(T,Count),vowel(H,Counter),Count is Count +Counter,Counter1 is Counter1+Count. answer I got "Faulse"

you open module add this coding into it Module Module1 Public connectionString As String = "Data Source=HP-PC;Initial Catalog=VBP;user ID =sa; password= 1234" Public loggedUserId As String Public loglevel As String Public loggedpassword As String End Module there in datasoure you put the IP address of the computer you connected. Initial …

When I used this coding I didn't any output though is no errors. palli([H]). palli([]). palli([H|T])-append(T,H,[T|H]). I got the output as [4] 6 ?- palli([m,a,m]),append(K,L,J). K = [], L = J .

I write count the letters in a list, > ERROR: countvowels/2: Arguments are not sufficiently instantiated I got this error" why is that? this is the coding I used countvowels([],0). countvowels([H|T],Count1):-Count is Count1 + 1,countvowels(T,Count),Count1>1.

I want to transate no to Letters ,and letters to no,as a Example when germantoenglish([e,t,th],Y).Y shoul be like below Y=[1,2,3] but I get answer as false............ trans(e,1). trans(t,2). trans(th,3). germantoenglish([S|H],[G|Ta]):-trans(H,Ta). englishtogerman([J|Ta],[L|H]):-trans(H,Ta). `

Can anybody explain why this is not working.Can someone help me. fib(0, 0). fib(1, 1). fib(N, NF) :- N>=0, fib(N-1, AF), fib(N-2, BF), NF is AF + BF. .

you have to create account and try to download

if you have code just check whether you have to change the server path

there should bean increment on i i=i+1

If you want to put this sql database into a network system you just have give all the server names in the connection string in vb.net As Jxman explained it is really easy to configure.but you have to install first Sql and then vb,net package

Answer to blivori: you have to open the connection before selecting the data..........Inline Code Example Here myCommand = New SqlCommand(" Select Quantity FROM Product_Details Where P_Id='" & ComboBox2.Text & "'", myConnection) Dim dr As SqlDataReader = myCommand.ExecuteReader While dr TextBox4.Text = Val(dr(0)) End While dr.Close() myConnection.Close()

what is the error you are getting..........

Hope you you knpw to create the connection string Dim myCommand As SqlCommand myCommand = New SqlCommand("SELECT * FROM Major ", myConnection) Dim da As New SqlDataAdapter SQLdr = myCommand.ExecuteReader() While SQLdr.Read() cmbMajorI.Items.Add(SQLdr("MajorName")) End While

`Inline Code Example Here` I didn't get your problem clearly........... better you upload your form design I'm not whether this the thing you wanted..... GroupBox1.Visible = False GroupBox2.Focus()

In my database there two table call sample and sample customer in sample table primary key is sample_Note_no and it is a foreign key in sample_customer table I got same error after I wrote this coding also ALTER TABLE Sample Customer ADD CONSTRAINT FK_Sample Customer_Sample FOREIGN KEY (Sample_NOTE_No) REFERENCES Sample(Sample_NOTE_No) …

when I try to insert values I got this error: I Used this code myConnection = New SqlConnection(connectionstring) myConnection.Open() Try Dim insert1 As SqlCommand = New SqlCommand("INSERT INTO [VBP].[dbo].[Return_Total] ([RGN0],[Date] ,[Totalamount],[User_Id],[C_NIC],[Comments],[Bill_No]) values ('" & Val(TextBox2.Text) & "','" & DateTimePicker1.Value.Date & "','" & TextBox4.Text & "','" & TextBox6.Text & "','" & …

You can write this coding at form loading event myCommand = New SqlCommand("SELECT * FROM Major ", myConnection) Dim da As New SqlDataAdapter SQLdr = myCommand.ExecuteReader() While SQLdr.Read() cmbMajorI.Items.Add(SQLdr("MajorName")) End While

I want to filter data from a billno to crystal report this the coding i used Dim connectionstring As String = Module1.connectionString Dim sqlconn As New SqlConnection(connectionstring) Public sqlDataset As New DataSet Dim myCommand1 As SqlCommand Dim myCommand2 As SqlCommand Public dr As SqlDataReader Dim myConnection As SqlConnection Dim nxtmajor …

Use this coding Dim agre1, agre2, agre3 As Double agre1 = val(Form1.TextBox11.Text) agre2 = val(TextBox11.Text) agre3 = ((agre1 + agre2) / 2) TextBox12.Text = agre3

If want you can export the Crystal report as pdf by using this link [Click Here](http://vb.net-informations.com/crystal-report/vb.net_crystal_report_export_pdf.htm)

I want to get the data between today this the coding i used CrystalReportViewer1.SelectionFormula = "{sell.Date}= '" & DateTimePicker2.Value & "' BETWEEN {sell.Date}= '" & DateTimePicker1.Value & "'" I saved the data into data Dim date1 As Date = DateTimePicker1.Value.Date THE ERROR I got have attached as a picture I …

I Want to know is there a possiblity to send emails through vb application without purchasing a email server

thank you.......................

Why This error is coming................... There is already an open datareader is associated with this command which must be closed Private Sub AppendItem(ByVal Productid As String, ByVal quantity As Integer) productid1 = Productid myConnection = New SqlConnection(connectionstring) myConnection.Open() Dim TempData As New DataTable Dim pid As String = ComboBox1.SelectedItem myCommand1 …

I want to delete an item from list view and at the same I want delete the item from the Releavant table when I click the okay button in the ** search form** i want to delete the item from listview and as well as to update it to Sell …

do you need to save the crystal Report Error in File C:\DOCUME~1\COUNTER\LOCALS~1\TEMP\temp_ebfc56a7-f48a-46b4-9335-709e5682573c{E5F4DBBE-6BE3-4C08-A7A8-63F7769CC81C}.rpt: need more details

I want to get the relevant name of the product Id into a text box when I select the product id from the combobox myConnection = New SqlConnection(connectionstring) myConnection.Open() myCommand = New SqlCommand(" Select Name FROM [Product_Name_List] Where P_Id='" & ComboBox2.Text & "'", myConnection) Dim dr As SqlDataReader = myCommand.ExecuteReader …

I'm learner of vb.net Can anybody please explain what is opentoolstripe menu is?why we need overload ?sorry if troubled

when I used your codes I got error ` The system cannot find the file specified Sub Main() ' Open the file 'example.docx' at the current program's directory. ' It will appear in a new instance of word. Process.Start("D:\My CV\CV") End Sub Private Sub RichTextBox1_GotFocus(ByVal sender As Object, ByVal e …

If you have marks with you can use If else condition Dim marks As Integer = 51 Dim grade As String If marks > 50 Then grade = "A" Else grade = "B" End If

I used this code to retrive from one record to another first tried to retrive the first record................. varible decalaration Imports System.Data Imports System.Data.SqlClient Public Class Form3 ' Dim connectionstring As String = Module1.connectionString Dim sqlconn As New SqlConnection(connectionstring) Public sqlDataset As New DataSet Dim da1 As OleDb.OleDbDataAdapter Dim myCommand1 …

I want to what do you mean by this concept,how it is useful?

you can write like this way........ Dim st As String If radiobutton1.Checked = True Then st = "level1" ElseIf radiobutton3.Checked = True Then st = "level2" ElseIf radiobutton3.Checked = True Then st = "level3" select (student name, course, school, state_of_origin) from student_table where school='" & st "'

Date can assigned like this also: Dim dateOfBirthAsString As String = dtpDOB.Value When you inserting into a table you write query like this: Dim myCommand As SqlCommand myCommand = New SqlCommand("Insert into Student(Column1,Column2,Column3,Column4,Column5,Column6) values VALUES( '" & Pnum & "', '" & InDate & "', '" & PDate & "', …