|
Hello all, I creating a Temp DataSet and Adapter, populating it and then doing an Insert to move data from this table back into the orginial table I copied it from but with a new DATE. I have it all working fine so far but when I get to trying to list the value of one of my columns (the most inportant one) I can't seem to grab the value. Below is what I have as of now. The line that I am having a problem with is OrderName = ADS.Orders.Select.ToString but I wanted to show you exactly what I am doing. Does anyone have any suggestions? Thank you for any help that you can provide...
Dim NewVisitDate As String
Dim PriorVisitDate As String
Dim SQL As String = String.Empty
'set Variables
NewVisitDate = txtVisitDate.Text
PriorVisitDate = Me.cbobxPriorDates.Text.ToString
MR = frmQuestionnaire.txtMRNo.Text
'create SQL to filter out data
SQL = "SELECT OrderMR, OrderDate,Order FROM (Orders) WHERE (OrderMR='" & MR & "') and (OrderDate= #" & PriorVisitDate & "#)"
'create new DataSet and new DataAdapter
Dim dr As OleDbDataReader
Dim ADS As New AnesDataSet
Dim CopyOrders As New OleDbDataAdapter(SQL, Connection)
CopyOrders.Fill(ADS, "Orders")
'CopyOrders.Fill(ADS.Orders)
Try
Connection.Open()
Dim Command As New OleDbCommand(SQL, Connection)
dr = Command.ExecuteReader()
Catch ex As Exception
End Try
'run a ForEach statement to modify all of the records in the ADS.Orders table
Dim Row As DataRow
Dim OrderName As String
Dim SQLInsert As String = String.Empty
For Each Row In ADS.Orders.Rows
OrderName = ADS.Orders.Select.ToString
'setup an SQL to change the Date and Insert new records
SQLInsert = "INSERT INTO Orders (OrderMR, OrderDate, [Order]) VALUES (@MR, @NewVisitDate,@OrderName)"
Dim Command_Insert As New OleDbCommand(SQLInsert, Connection)
Command_Insert.Parameters.AddWithValue("@orderMR", MR)
Command_Insert.Parameters.AddWithValue("@OrderDate", NewVisitDate)
Command_Insert.Parameters.AddWithValue("@Order", OrderName)
Command_Insert.ExecuteNonQuery()
'Console.Write(Command_Insert)
|
|
|
|
|
Are you attempting to update the date or just add back in all the rows with a new date in addition to the originals?
Also, what is the command that is executed at the line OrderName = ADS.Orders.Select.ToString?
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
|
Hey Cleako, thanks for your response.
I am writing back the records with a new date in addition to the originals.
That line that you noticed is where my problem is. I can't figure out what to set my OrderName variable to. I can't find anything from the intellisense list that will give me the feild value of Orders on the row that I am on.
|
|
|
|
|
If you dont have a strongly typed DataSet where the columns are provided then you will need to access the column this way.
For Each Row In ADS.Orders.Rows
OrderName = row("Order").ToStringI hope that helps!
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
|
That is EXACTLY what I needed. Thanks CleaKO!!
|
|
|
|
|
We are building a html(some controls) and assigning to a div's innerhtml.
They are built using some validations. The size of the string in any case would be around 200 KB(The controls are more). We are calling one or two functions in a loop which is returning a stringbuilder. The calling function will append the return value to a main stringbuilder. Main stringbuilder will be around 200 KB and the stringbuilder within functions will be around 100bytes. Will that be a better way to initialize the stringbuilder with some expected values.
Thanks,
K.P.Kannan
|
|
|
|
|
If you know the size of the StringBuilder I would initialize it with that size or a little more for efficiency but in general StringBuilders are just more efficient as they are. You dont necessarily have to use "expected values" though.
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
|
hai all,
i am using .net 2003.i want to update and save the changed values permanently in sqldatabase through datagrid during runtime in vb.net windows form.
using the following code can't update and can't save the changed values permanently.but i run this program, didn't show any error.plz any body help.
Try
Dim myChangedDataset As DataSet = Me.DataSet41.GetChanges
If Not (myChangedDataset Is Nothing) Then
Dim modifiedRows As Integer = Me.SqlDataAdapter1.Update(myChangedDataset)
MessageBox.Show("Database has been updated successfully: " + modifiedRows + " Modified row(s) ", "Success")
Me.DataSet41.AcceptChanges()
fnRefresh()
Else
MessageBox.Show("Nothing to save", "No changes")
End If
Catch ex As Exception
MessageBox.Show("An error occurred updating the database: " + ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.DataSet41.RejectChanges()
End Try
|
|
|
|
|
I would suggest using a breakpoint and taking a closer look at your SqlDataAdapter1 just before the update. Make sure the connection is set properly and make sure your commands are set properly. Otherwise this code doesn't have any obvious problems that I can see.
Hope this helps.
|
|
|
|
|
Hi sathyan,
just a few questions to better understand your problem:
1) Do you use a SqlCommandBuilder to create your commands in SqlDataAdapter or create them manually ?
2) In the first case, is your query based upon one table or uses joins ?
I had the same problem and found that SqlCommandBuilder works only for 1-table queries.
Bye,
Advansis 
Peace!
|
|
|
|
|
Hello,
I have imported Windows Script Host in my project, because of the CopyFolder() function. But, is my program legal when i have imported Windows Script Host (IWshRuntimeLibrary) and can i still distribute it?
(Maybe someone of Microsoft could answer this question?)
Thanks in regard,
--Zaegra--
|
|
|
|
|
Hi Zaegra,
a. That is not a VB programming question, so you might have better luck on a different forum.
b. If you feel someone from Microsoft is best equipped to answer you question, ask them, not us.
c. As a general rule of thumb: if your application will make people buy MS Windows (because that is the only environment your app will run in), the Microsoft people don't complain. (I'll deny everything if you get pulled into court though)
Good luck,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
hello frnds,
i have a big code in vb and i just want to convert that code in vb.net
is there is any site,which is do the conversion directly..
or isthere is any way to convert the whole code in to vb.net
regards,
koolprasad2003
Be A Good S/W Eng... Life is swing with you..Enjoy..
|
|
|
|
|
There is no site to do this. It's built into Visual Studio .NET. All you have to do is open the VB6 project's .VBP file to start the conversion wizard.
It will NOT do a perfect conversion. It's simply impossible to get everything correct. I HIGHLY recommend just rewriting the project from scratch, or doing the conversion and rewriting the project piece-by-piece.
|
|
|
|
|
Hi Everyone:
Thanks to Guffa and Dave Kreskowiak, the light of understanding finally broke through the fog in my head about the mechanics of the DataSet.
While exploring the internet trying to find some examples on the use of datasets and so forth I came across an artical saying to set the Autoincrement seed to zero and set the AutoincrementStep to minus one.
As I understand it records written to the dataset from the database will have positive numbering and new records added to the dataset will have negitive numbering.
So if I understand this right data returned from the database will look like:
1 Record 1
2 Record 2
3 Record 3
.
.
.
And new records appended to the dataset will look like:
-1 Record 4
-2 Record 5
-3 Record 6
.
.
.
Does anyone know the link to this artical? I spent a few hours yesterday afternoon trying to locate the artical, but I couldn't find it.
Thanks,
Quecumber256
|
|
|
|
|
Hi, I'm writing a MS Access app for a client, and using the Send Object from DoCmd works fine in sending email. The issue here is, I want to be able to have certain options already checked off so the user doesn't have to do it every single email. For example, I would like 'high priority' already clicked, 'request read receipt' already clicked, and to be able to automatically set a 'reply to' email. Is this possible with the DoCmd call, or should I be looking elsewhere to help with my emailwing woes?
-
reegan41
-- modified at 9:09 Friday 25th May, 2007
|
|
|
|
|
You know how on some websites..say if you're filling out an application that is flash driven or something, that as you go through the different screens (or steps), there are tabs at the top with a label briefly describing what that step is. So for example, when you're purchasing something online, and the first step is putting it in your 'shopping cart' in a tab at the top of the screen or whatever, then when you go to the next screen, the next tab would highlight and say 'payment method', then at the next screen, the following tab would highlight and say 'billing address', etc.
Long story short: is there (that you know of) an ActiveX (VB) control that would allow me to utilize this kind of object within MS Access?
-
reegan41
|
|
|
|
|
hi
I want to use the crystal report in my application on the basis of dataset.
I have done it with dataset having single table but having this error with more than one table :
"Query Engine Error"
Here is the Code:
Dim DS As New DataSet
Dim Cnn As New SqlClient.SqlConnection
Dim DA As New SqlClient.SqlDataAdapter
Cnn.ConnectionString = "data source=sofsrv02\development;" _
& "initial catalog=Northwind;persist security info=False;" _
& "user id=sa;Pwd=;workstation id=aliraza;Pooling=false;packet size=4096"
Cnn.Open()
DA.SelectCommand = New SqlClient.SqlCommand("Select A.PRODUCTID,A.PRODUCTNAME,B.SUPPLIERID,B.COMPANYNAME from SUPPLIERS B,PRODUCTS A WHERE A.SUPPLIERID=B.SUPPLIERID", Cnn)
DA.Fill(DS)
Dim oRpt As CrystalReport1 ' create new report object
oRpt = New CrystalReport1 ' create new instance of the report object
oRpt.SetDataSource(DS) ' set the reports data source
CrystalReportViewer1.ReportSource = oRpt ' set the viewers report source
It executes all the code but finally give me error.
Kindly Solve this Problem
Regards
Ali
|
|
|
|
|
hi,
What type of error u Face ? What is the Message of error ? Explain In Detail.
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
This is the complete error.
Error in File C:\DOCUME~1\ALIRAZ~1\ASPNET\LOCALS~1\Temp\temp_2d2350fe-39ee-4e43-a51c-2503df13defd.rpt: Query Engine Error
|
|
|
|
|
I have searched lots of article about my problem on Internet,Found many article for single table but there is no solution for multiple tables .Plz help me
Regards
Ali
|
|
|
|
|
hi syed,
some time Crystal report Problem with Multiple table.
in place of select fields on Crysatal report from Multiple Table, you Select fields from Query which contain columns of multiple table.
create the query in database(Query 1) which contain record from Multiple Table.
Now in VS2005 IDE Perform Following.
Create Dataset from Data menu & after selecting appropriate databse,select Query1 from DataBase object VIews & name this dataset(dsQuery) & on crystal report choose this Dataset as datasource & place field from this dataset to Report
Hope This Helps
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
Hi guys,girls,others
need to automate a report in word using vb6 and the results of a query on an access database. got as far as getting the info from the database now need to put it all in word. problem is the info might contain just one record or it might contain over 200 records, or even more, or nothing. so, never having accessed word from vb6 before and the last time i tried to write code was 8 years ago, i am having some problems here as you can well imagine.
help would be greatly appreciated.
|
|
|
|
|
Hi Carter,
Better an imperfect answer than no answer at all:
First thing I would consider if I were you is to forget about vb6, and go for vb.net. Its a bit scary and a little frustrating at first but give it two weeks and you'll wonder why you ever considered doing it in vb6. With vb.net it is very easy to retrieve data from any source, stick it into an xml file, which in turn is relatively easy to turn into a word file, or any other MS Office format for that matter. This will also make your code work with pretty much all versions of Word.
If that is not an option for you, you should consider starting off with Word and not vb6. In other words, open a word file and play around with Word's own macro functionality, which Visual Basic Editor in itself is roughly the same as vb6 anyway. You could probably just copy most of the code you wrote so far, and you won't have to struggle with getting Word to work and accept input, etc, etc.
If that too is of no help to you, I suggest posting a new question on this forum and being way more specific about the problem you are facing. (bits of example code, error messages, specific steps you don't know how to take, etc.)
Good luck,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Dim strCountry As String
Dim strCustomer As String
Dim strManufacturer As String
Dim strBitMake As String
Dim strBitSize As String
Dim strMotorType As String
Dim strBlockNumber As String
Dim strSectionNumber As String
Dim strDepthIn As String
Dim strDepthOut As String
Dim strFootageDrilled As String
Dim strFormation As String
Dim strFormation1 As String
Dim strSearch As String
Dim strRst As String
Dim strPunctuation As String
Dim lngLen As Integer
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oTable As Word.Table
Dim oPara1 As Word.Paragraph
Dim oRng As Word.Range
Dim oShape As Word.InlineShape
Dim oChart As Object
Dim Pos As Double
If cboCountry.Text <> "" Then
strCountry = cboCountry.Text
strRst = "SELECT Countryid FROM Country WHERE Country LIKE " & "'" & strCountry & "'"
Rst.Open strRst, Cnn, adOpenDynamic, adLockOptimistic
strCountry = "BitRun.CountryID = " & Rst.Fields("Countryid").Value & " AND "
Rst.Close
strRst = ""
Else
strCountry = ""
End If
If cboCustomer.Text <> "" Then
strCustomer = cboCustomer.Text
strRst = "SELECT Customerid FROM Customer WHERE Customer LIKE " & "'" & strCustomer & "'"
Rst.Open strRst, Cnn, adOpenDynamic, adLockOptimistic
strCustomer = "BitRun.customerid = " & Rst.Fields("Customerid").Value & " AND "
Rst.Close
strRst = ""
Else
strCustomer = ""
End If
If cboManufacturer.Text <> "" Then
strManufacturer = cboManufacturer.Text
strRst = "SELECT BitManufacturerid FROM Bit_Manufacturer WHERE Manufacturer LIKE " & "'" & strManufacturer & "'"
Rst.Open strRst, Cnn, adOpenDynamic, adLockOptimistic
strManufacturer = "BitRun.BitManufacturerid = " & Rst.Fields("BitManufacturerid").Value & " AND "
Rst.Close
strRst = ""
Else
strManufacturer = ""
End If
If cboBitSize.Text <> "" Then
strBitSize = "BitRun.Size = '" & cboBitSize.Text & "' AND "
Else
strBitSize = ""
End If
If cboMotorType.Text <> "" Then
strMotorType = cboMotorType.Text
strRst = "SELECT MotorID FROM Motor WHERE MotorType LIKE " & "'" & strMotorType & "'"
Rst.Open strRst, Cnn, adOpenDynamic, adLockOptimistic
strMotorType = "BitRun.MotorID= " & Rst.Fields("MotorID").Value & " AND "
Rst.Close
strRst = ""
Else
strMotorType = ""
End If
If cboBlockNumber.Text <> "" Then
strBlockNumber = "BitRun.BlockNumber = '" & cboBlockNumber.Text & "' AND "
Else
strBlockNumber = ""
End If
If cboSectionNumber.Text <> "" Then
strSectionNumber = "BitRun.SectionNumber = '" & cboSectionNumber.Text & "' AND "
Else
strSectionNumber = ""
End If
If txtDepthIn.Text <> "" Then
strDepthIn = "BitRun.MDIn" & txtDepthIn.Text & " AND "
Else
strDepthIn = ""
End If
If txtDepthOut.Text <> "" Then
strDepthOut = "BitRun.MDOut" & txtDepthOut.Text & " AND "
Else
strDepthOut = ""
End If
If txtFootageDrilled.Text <> "" Then
strFootageDrilled = "BitRun.FootageDrilled" & txtFootageDrilled.Text & " AND "
Else
strFootageDrilled = ""
End If
If txtFormations.Text <> "" Then
strPunctuation = ","
strFormation1 = Replace(txtFormations.Text, strPunctuation, " OR BitRun.Formation = ")
strFormation = "BitRun.Formation = " & strFormation1
Else
strFormation = ""
End If
strSearch = "SELECT * FROM BitRun WHERE BitRun.Performance NOT LIKE 'Poor' AND " & _
strCountry & strCustomer & strManufacturer & _
strBitMake & strBitSize & strMotorType & strBlockNumber & strSectionNumber & _
strDepthIn & strDepthOut & strFootageDrilled & strFormation
If Right(strSearch, 5) = " AND " Then
lngLen = Len(strSearch) - 5
strSearch = Left$(strSearch, lngLen)
strSearch = strSearch & ";"
Else
strSearch = strSearch & ";"
End If
Set rstSearch = New ADODB.Recordset
rstSearch.Open "SELECT * FROM SQLSearchTextString", Cnn, adOpenDynamic, adLockOptimistic
If Not rstSearch.EOF Then
rstSearch.Delete adAffectCurrent
End If
rstSearch.AddNew
rstSearch.Fields("sqlsearch") = strSearch
rstSearch.Update
rstSearch.Close
'Start Word and open the document template.
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Add
oDoc.PageSetup.Orientation = wdOrientLandscape
oDoc.PageSetup.LeftMargin = 10
oDoc.PageSetup.RightMargin = 10
oDoc.PageSetup.TopMargin = 30
'Insert a paragraph at the beginning of the document.
Set oPara1 = oDoc.Content.Paragraphs.Add
oPara1.Range.Text = "Diamant Drilling Services Run Report"
oPara1.Range.Font.Name = "Arial Rounded MT Bold"
oPara1.Range.Font.Color = wdColorBlue
oPara1.Range.Font.Size = 28
oPara1.Range.Font.Bold = False
oPara1.Range.InsertParagraphAfter
oPara1.Range.InsertParagraphAfter
Set oPara1 = oDoc.Content.Paragraphs.Add
oPara1.Range.Text = "QDC"
oPara1.Range.Font.Name = "Arial"
oPara1.Range.Font.Color = wdColorBlue
oPara1.Range.Font.Size = 8
oPara1.Range.Font.Bold = True
OK, there you have it, my probably totally unprofessional attempt at coding, but it works so far so i must say i am quite pleased with myself.
my problem is with the range object i think. i need to have more than one word on a line and i just cant seem to do this. the first line is to have the headers and the following lines are to have the information organised under the relevent headers.
vb.net is not an option, i only have vb6 and not even the msdn help files so battling is putting it mildly.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
