|
hi guys, I hope guys can help me. I have some problem with my datagridview's rows, can I set max gatagrid view?
example. I have 20 row records when I load the form but I want them show only 10 row records, then if I press botton1 it will show other 10 row records.
anyone can help me
thank in advance.
sorry my bad English
|
|
|
|
|
you are after a technique called paging. Have a read of this article Paging a Windows Forms DataGridView[^]
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
Dear Developers
I am trying to retrieve driving time from Google maps,
I have 1200 locations and I need driving time between them and insert each combination into my database can someone please post a code that retrieve the data from Google?.
All the locations are from Israel and there is no postal code only cities names or main locations.
I tried modifying the following code which I found on the web in is in vb
But it doest work please help
In will appreciate any help on the subject
Tanks,
Patric
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = getGoogDistanceTime("תל אביב", "באר שבע", "time")
End Sub
Public Function getHTML(ByVal strURL As String) As String
Dim oXH As Object
oXH = CreateObject("msxml2.xmlhttp")
With oXH
.Open("get", strURL, False)
.send()
getHTML = .responseText
End With
oXH = Nothing
End Function
Public Function parseGoog(ByVal strSearch As String, ByVal strHTML As String) As String
strSearch = strSearch & ":"""
If InStr(1, strHTML, strSearch) = 0 Then parseGoog = "Not Found" : Exit Function
parseGoog = Mid(strHTML, InStr(1, strHTML, strSearch) + Len(strSearch))
parseGoog = Mid(parseGoog, 1, InStr(1, parseGoog, """") - 1)
End Function
Public Function getGoogDistanceTime(ByVal rngSAdd As String, ByVal rngEAdd As String, Optional ByVal strReturn As String = "distance") As String
Dim sURL As String
Dim BodyTxt As String
sURL = "http://maps.google.com/maps?f=d&source=s_d"
sURL = sURL & "&saddr=" & Replace(rngSAdd, " ", "+")
sURL = sURL & "&daddr=" & Replace(rngEAdd, " ", "+")
sURL = sURL & "&hl=en"
BodyTxt = getHTML(sURL)
If InStr(1, BodyTxt, strReturn, vbTextCompare) = 0 Then
getGoogDistanceTime = "Error"
Else
getGoogDistanceTime = parseGoog(strReturn, BodyTxt)
End If
End Function
modified 27-Jan-12 8:07am.
|
|
|
|
|
1200 locations... If we assume that driving time does not depend on direction, that makes 1200*1199/2=719400 queries to Google. Do you think they will accept such a use of ther service?
By the way, you should URLEncode() the place names.
|
|
|
|
|
yes way not retriving data only once for my local DB...
can you please post a sample code i need it only for filling my DB
tanks,
Patric.
|
|
|
|
|
hi everyone, i need help..
in vb.net, when i shows a form, it will pop up smoothly (effect), i'm now trying to create a form without border style (none), nah this time the form will immediately pop up without effect..
is there any properties to make it pop up smoothly?
thank's before.. 
|
|
|
|
|
No, there's no property dedicated to smoothnes in popping up. You could change the size of the Window when it's shown in steps, simulating the effect - if it's important enough.
Bastard Programmer from Hell 
|
|
|
|
|
I have used opacity starts at 0 to 100
with a small time delay
|
|
|
|
|
Hello,
When loading grids with data tables, if you want to have nested tables (grid shows a + to expand and show the 2nd table) you create a datarelation - method available in the dataset object. I have a list(of ???) that I feed the grid for it's datasource where the ??? is an object(entity) that has fields (just like a table). Is there an equivalent to creating a datarelation so I nest the entity objects or would I have to convert the entities to datatables to do this?
Any help would be appreciated...
Nathan
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
|
|
|
|
|
nlarson11 wrote: When loading grids with data tables, if you want to have nested tables (grid shows a + to expand and show the 2nd table) you create a datarelation - method available in the dataset object.
No, if you want to display your data in that way you'll need a drill-down grid. Relations make sure the data stays consistent; meaning that if there's a relation between two fields, that one will only accept values that occur in the other.
Some drill-down grids use those relations to create the subgrids dynamically.
nlarson11 wrote: Is there an equivalent to creating a datarelation so I nest the entity objects or would I have to convert the entities to datatables to do this?
This is not natively supported; you'll need a grid that support the drill-down functionality, or create your own.
Bastard Programmer from Hell 
|
|
|
|
|
Thank you Eddy,
I have a grid that supports drill-down so that's not a problem. I was just hoping to use entities instead of having to convert but from what you said, doesn't look like that's possible.
Nathan
'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous
'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous
|
|
|
|
|
Hi All..
I have problem in VB program i made, using CR n database Access, when i run the program in my compie it works but not in other compie, after make compile n setup..the transaction i made in a form couldnt be appearenced in other computer..when run in other computer appear 'Run-time error '-2147217913 (80040e07)': Data type mismatch in criteria expression'
whats the mistakes i made?
Thanks for the solusion...
|
|
|
|
|
Judging by the error message, you have an SQL expression or query that isn't written correctly. Since we know nothing else of your application, it's impossible to be any more specific than that.
|
|
|
|
|
But hows that happen.. cause the program/application i made could run and the transaction form could appear in my computer and my friends comp.that also running VB program in her comp.. but it cant appear/run properly in 2 others computer?hows that?
thanks for Your concern..
modified 26-Jan-12 20:45pm.
|
|
|
|
|
Well, we still haven't seen the code yet that's throwing this error.
But, your code is treating a numeric field in the database as a text field, or some other mismatch like that. The testing you did on your machine apparently didn't cover how your users are actually using the application.
|
|
|
|
|
this is the transaction form code:
Sub Cetakprinter()
Dim MGrs As String
Printer.Font = "Courier New"<code></code>
Printer.FontSize = "10"
Call BukaDB
RSGaji1.Open "select * from Gaji1 Where NomorSlp In(Select Max(NomorSlp)From Gaji1)Order By NomorSlp Desc", Conn
RSKasir.Open "select * from kasir where kodeksr=" & RSGaji1!KodeKsr & "", Conn
RSKasir.Requery
RSPegawai1.Open "select * from Pegawai1 where NIP=" & RSGaji1!NIP & "", Conn
RSPegawai1.Requery
Printer.Print
Printer.FontBold = True
Printer.FontBold = False
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.Print Tab(15); "RSUD SARAS HUSADA "
Printer.Print Tab(20); "PURWOREJO "
MGrs = String$(40, "=")
Printer.Print Tab(5); MGrs
Printer.Print
Printer.Print Tab(5); "Nomor Slip : "; RSGaji1!NomorSlp
Printer.Print Tab(5); "Tanggal : "; Format(RSGaji1!Tanggal, "DD-MMMM-YYYY")
Printer.Print Tab(5); "NIP : "; RSGaji1!NIP
Printer.Print Tab(5); "Nama : "; RSPegawai1!NamaPgw
Printer.Print Tab(5); "Petugas : "; RSKasir!NamaKsr
MGrs = String$(40, "-")
Printer.Print Tab(5); MGrs
RSDetail.Open "select * from DetailGaji Where NomorSlp In(Select max(NomorSlp)From DetailGaji)", Conn
RSDetail.Requery
RSDetail.MoveFirst
Do While Not RSDetail.EOF
Set RSPerkiraan1 = New ADODB.Recordset
RSPerkiraan1.Open "select * from Perkiraan1 where KodePrk=" & RSDetail!KodePrk & "", Conn
Printer.Print Tab(5); RSPerkiraan1!NamaPrk;
If Left(RSDetail!KodePrk, 1) = "0" Then
Printer.Print Tab(25); RKanan(RSDetail!Jumlah, " Rp ###,###,### +")
Else
Printer.Print Tab(25); RKanan(RSDetail!Jumlah, " Rp ###,###,### -")
End If
RSDetail.MoveNext
Loop
Printer.Print Tab(5); MGrs
Printer.Print Tab(5); "Pendapatan :";
Printer.Print Tab(25); RKanan(RSGaji1!Pendapatan, " Rp ###,###,### +");
Printer.Print Tab(5); "Potongan :";
Printer.Print Tab(25); RKanan(RSGaji1!Potongan, " Rp ###,###,### -");
Printer.Print Tab(5); MGrs
Printer.Print Tab(5); "Total :";
If RSGaji1!Pendapatan = RSGaji1!Potongan Then
Printer.Print Tab(34); RSGaji1!Pendapatan - RSGaji1!Potongan
Else
Printer.Print Tab(25); RKanan(RSGaji1!Pendapatan - RSGaji1!Potongan, "Rp ###,###,### +");
End If
Printer.Print Tab(5); MGrs
Printer.Print
Printer.EndDoc
Printer.KillDoc
End Sub
thank you for your concern...
|
|
|
|
|
rizaky2011 wrote: could you please give me example for code treating numeric field in the database
as a text file
No, because that makes no sense what so ever. You never treat a numeric column in a database as a "text file".
Again, something in your SQL statements is treating a numeric column as a string column or the other way around. We have no idea how your database tables are defined, so it's impossible for us to tell you what you did wrong. This is where YOU start investigating those possibilities. We've given you the stuff you should be checking for.
BTW, your SELECT statements that look like this are very suspicious. I have no idea what you're trying to do with them:
select * from Gaji1 Where NomorSlp In(Select Max(NomorSlp)From Gaji1)Order By NomorSlp Desc
The IN clause doesn't make sense since the Max(NomorSlp) only returns a single number. The IN clause shouldn't be used in that case.
|
|
|
|
|
is that so?but that's statement seem doesn't effect the running program..but when i run the program, the error appear and it's point to this code:
Dim SimpanGaji As String
SimpanGaji = " Insert into Gaji1 _ (NomorSlp,Tanggal,Jam,NIP,Pendapatan,Potongan,GajiBersih,KodeKsr) values " & _
"('" & LblNomorSlp & "','" & CDate(LblTanggal) & "','" & LblJam & "', " & _
"'" & Combo1 & "','" & LblPendapatan & "','" & LblPotongan & "', " & _
"'" & LblTotal & "','" & LblKodeKsr & "')"
Conn.Execute (SimpanGaji)----> point to this code
debug the error point to --> Conn.Execute (SimpanGaji)
Thank you..
|
|
|
|
|
Yes, it is so.
Wow. This little gem could very easily be causing your problem. Your INSERT statement is treating every single value as a string. Your database table (Gaji1) probably doesn't have every field defined as some variant of char.
The second LARGE problem with this code is that you're using string concatentation to build the SQL statement. This is a HUGE security risk which can end up detroying your entire database.
Google for ".NET Parameterized Queries" for explanations as to why I said that and how you can avoid it as well as makding your SQL related code much easier to understand and debug.
|
|
|
|
|
so i have to change the INSERT statement?this the data type of each filed in my table Gaji1,
NomorSlp data type = Text
Tanggal = Date/Time
Jam = Date/Time
Pendapatan = Number
Potongan = Number
GajiBersih = Number
NIP = Text
KodeKsr = Text
so it's could not be defined as string?should i change into variant, all of them?
Sorry to much asking, cause this is 1st time i made a program 
modified 30-Jan-12 23:07pm.
|
|
|
|
|
Yes. You have three numeric fields in that table and your INSERT statement is treating them as strings. See the ' characters you're putting around those values??? Don't. And don't build the SQL statement the way you are now. Learn about parameterized queries and use them. Had you done so alreay, you may not have even seen this problem.
|
|
|
|
|
so should i change the statement? can You suggest me the right code..
the samples? please? cause i'm newbie..
thank You
|
|
|
|
|
Apparently you don't know anything about the SELECT statement format. For numeric fields, you don't put ' characters around the values.
|
|
|
|
|
Ya,you right specially bout the ' character,so could you give me the samples please? t
Thank you..
|
|
|
|
|
You're kidding, right? Ever hear of experimenting a little? It's the best way to teach yourself something. Make a little change, see what it does.
Dim query As String = "INSERT INTO table (numericField1, stringField1) VALUES (23, 'SomeString')"
BTW, the way you built your SQL statement is the worst possible method you could use to do it. Google for ".net parameterized query" and start reading. Seriously.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
