Click here to Skip to main content
14,766,658 members

Comments by Member 14588284 (Top 137 by date)

Member 14588284 19-Dec-20 4:34am View
   
i get it picturue box only then write textbox manualy
i think its legal?
Member 14588284 17-Dec-20 8:21am View
   
It may be as simple as FindElementByID can't find any element with the ID "Username"
its true,
But i know maybe 2 seconds or 10 seconds later its find then element
and i have to do it not with sleep or wait action
Member 14588284 2-Dec-20 2:34am View
   
 Sub EXTRACT2()
        Dim EXT = System.Windows.Forms.Application.StartupPath & "\veritabanı\FATURALAR"
        For Each FAT_PDf In Directory.GetFiles(EXT, "*.pdf")
            Dim AR = Strings.Right(FAT_PDf, 40)
            For ROW = 0 To DGV_Efatura.RowCount - 1
                Dim AR2 = DGV_Efatura.Rows(ROW).Cells(9).Value & ".pdf"

                If AR = AR2 Then
                    DGV_Efatura.Rows(ROW).Cells(4).Value = AR
                End If
            Next
        Next
    End Sub


İ wrote again codes then its only one seconds
i hope i did your suggestion true
Member 14588284 1-Dec-20 9:18am View
   
In the code I will write, I will only enter the name datagridview and the codes will look at the columns and sum the cells with numbers.
Member 14588284 8-Oct-20 10:22am View
   
i didnt do it... :(

my query runs with these codes
PROVIDER=MSDAORA.Oracle;DATA SOURCE=xxxx;USER ID=yyyy;PASSWORD=zzzz"
cmd.Execute ("SELECT COL1 FROM SYS20.CARTM001")
Set RS = cmd.Execute

For X = 1 To RS.Fields.Count
Cells(1, X) = RS.Fields(X - 1).Name
Next

Range("A2").CopyFromRecordset RS
Conn.Close

oracle

Hide Copy Code
ConnectionString="Provider=SQLOLEDB.1;Password=aaaa;Persist Security Info=True;User ID=bbbb;Data Source=cccc;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False;Initial "
cnn.Open ConnectionString

sql


RS.Open "SELECT COL1 FROM CUSTOMER", cnn
For X = 1 To RS.Fields.Count
Cells(1, X) = RS.Fields(X - 1).Name
Next
Range("A2").CopyFromRecordset RS
Member 14588284 8-Oct-20 10:15am View
   
Hi can u help me for this question
Member 14588284 1-Oct-20 13:13pm View
   
you send always this message?
This is not my answer you know. thanks for advise but i must send my data to acces like this
Member 14588284 28-Sep-20 15:03pm View
   
i improved question
{00020819-0000-0000-C000-000000000046} Getting the COM class factory for the component to CLSID failed due to the following error: 80040154 Class not registered (HRESULT returned exception: 0x80040154 (REGDB_E_CLASSNOTREG)).
Member 14588284 26-Sep-20 14:42pm View
   
If invoices are "missing", then your accounting system is corrupt.

Already Thats the my problem. So i want find missing sequence and first serie after the missing sequence serie
Member 14588284 16-Sep-20 14:52pm View
   
ok
another alternative is acces mdb file ?
Member 14588284 16-Sep-20 7:35am View
   
i can't write any data to Oracle table
Member 14588284 10-Sep-20 10:41am View
   
But i tried :(

query = "SELECT min_sno - 1 + level missing_number FROM (SELECT MIN(ORDERNUMBER) min_sno, MAX(ORDERNUMBER) max_sno TABLE1 ) CONNECT BY level <= max_sno - min_sno + 1 minus SELECT ORDERNUMBER FROM TABLE1 "
Member 14588284 10-Sep-20 10:31am View
   
Yes i write GOOGLE for this question but i didn't find any question like my question ,
generally for series number like 1-2-3-4-5-6
Member 14588284 8-Sep-20 17:26pm View
   
Can i get sum of a column with left joın?
Member 14588284 8-Sep-20 2:01am View
   
Thanks, İ didnt use it before :)
Member 14588284 8-Sep-20 2:00am View
   
Thanks, İ didnt use it before :)
Member 14588284 7-Sep-20 16:07pm View
   
because maybe in second table there is no equal value in col2 first table col2 value

Member 14588284 5-Sep-20 5:49am View
   
Thanks Thanks
That's it :)
Member 14588284 5-Sep-20 5:18am View
   
OKFirst option is : DGV.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
Second Option is :.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None

so i want use first and second options both,

when i open form i will see datargridview columns are autofit,

But same time, i should change columns width manuel,
(on column header)
(https://docs.telerik.com/devtools/winforms/controls/gridview/columns/resizing-columns-programatically) in this link first shortvide
Member 14588284 5-Sep-20 4:29am View
   
i wrote what my want
i think its simple and straightforward question
i want autofit size and manuel size control for datagridview columns?
Member 14588284 5-Sep-20 3:50am View
   
Do you have any suggestions
Member 14588284 22-Aug-20 16:53pm View
   
How can i add a row in theese codes?
Member 14588284 21-Aug-20 14:01pm View
   
<li id="9a73ca5d58074b" class="favoriteClass"><span>acracr</span><button class="fa fa-star-o"></button></li> 
Member 14588284 20-Aug-20 14:56pm View
   
i write it first message but when i pasteit here then
only "acracr" remains
Member 14588284 20-Aug-20 14:54pm View
   
Deleted
acracr
Member 14588284 20-Aug-20 11:42am View
   
Deleted
acracr
Member 14588284 15-Aug-20 6:02am View
   
i runned .dat files in dowloaded files but i get again same error
Member 14588284 14-Aug-20 9:07am View
   
thanks for answer
When I install this program does it affect the existing installed program on the host machine?
Member 14588284 13-Aug-20 15:54pm View
   
İ Tried but i didnt it :(
Member 14588284 8-Aug-20 5:45am View
   
Hi again :)
Can i add where conditions in this codes
Member 14588284 1-Aug-20 7:17am View
   
how can i do this.
in my query i'm adding different columns
Member 14588284 30-Jul-20 13:02pm View
   
Same error again :(

on this line
Me.myDA.Update(Me.myDataSet.Tables("CARTM001"))
Member 14588284 30-Jul-20 10:38am View
   
Me.myDataSet.AcceptChanges()

This line
Member 14588284 30-Jul-20 9:03am View
   
Unfortunately i didnt find an answer
Member 14588284 30-Jul-20 8:48am View
   
soryy :)
Concurrency violation: the UpdateCommand affected 0 records.
Member 14588284 25-Jul-20 3:10am View
   
Hi again :)

İn this codes
can i get {3,4,5} values from textbox text?

Hide   Copy Code
HideDGVColumns(New Integer(){3,4,5},DataGridView1) HideDGVColumns(New Integer(){textbox1.text},DataGridView1) 
i tried this but of course not worked


c_carkod=3
c_sno=4
c_tno=5
.
.



i must add a note:
my textbox.text is "c_carkod,c_sno,c_tno,....."
this means :"3,4,5,...."
Member 14588284 24-Jul-20 7:14am View
   
when i select a textbox then press enter key runnig this code
Member 14588284 30-Jun-20 6:30am View
   
== null

in here "null is not declared" error



i changed like this
i'm trying others i will return
 If .Rows(ROW).Cells(C_BARKOD).Value = "" Then
                            D_BARKOD = DBNull.Value.ToString
                        Else
                            D_BARKOD = .Rows(ROW).Cells(C_BARKOD).Value.ToString
                        End If
Member 14588284 30-Jun-20 5:58am View
   
not continuous but sometimes this will happen
Member 14588284 30-Jun-20 5:48am View
   
But i know cell is empty
Member 14588284 30-Jun-20 5:38am View
   
I think I couldn't explain
i know datagrid cell is null (empty)
but when its null i must send it to access.mdb a null value
Member 14588284 30-Jun-20 5:33am View
   
yes its true
when datagrid cell is empty i send this access.mdb nullvalue
Member 14588284 30-Jun-20 3:54am View
   
https://yadi.sk/i/_yV7a1UNSBnDwg
error message


my all codes like this.
Shortly somtimes my datagridview cells can be is null
Dim STNNAME = "SNO,CARKOD,TARIH,BELGETIP,BELGENO,BA,ACIKLAMA,MUH_ACIKLAMA,STKKOD,TBRM,MIKTAR,BARKOD,USTBRM,MIKTAR2,BRMFIYAT,TUTAR,KDV,KDVTUTAR,ISK,ISKTUTAR,NETTUTAR,KDVDAHIL,KAYITNO,STOKLU,ISLTARIH,GIDKALEM,GIDYER,BIRIM,MUHKOD"        Dim STR1 = "INSERT INTO CARTH002(" & STNNAME & ") VALUES(@1,@2,@3,@4,@5,@6,@7,@8,@9,@10,@11,@12,@13,@14,@15,@16,@17,@18,@19,@20,@21,@22,@23,@24,@25,@26,@27,@28,@29) "        Dim GUN As DateTime        ' MsgBox(.Cells(0).Value)        With FAT_TABLO            For ROW = 0 To .Rows.Count - 1                If IsDBNull(.Rows(ROW).Cells(1).Value) = False Then                    If .Rows(ROW).Cells(1).Value.ToString <> "" Then                        ' SNO,CARKOD,TARIH,BELGETIP,BELGENO,BA,ACIKLAMA,MUH_ACIKLAMA,STKKOD,                        ' TBRM,MIKTAR,BARKOD,USTBRM,MIKTAR2,BRMFIYAT,TUTAR,KDV,KDVTUTAR,ISK,ISKTUTAR,                        ' NETTUTAR, KDVDAHIL, KAYITNO, STOKLU, ISLTARIH, GIDKALEM, GIDYER                        Dim D_ACIKLAMA = .Rows(ROW).Cells(C_ACIKLAMA).Value                        If D_ACIKLAMA = "" Then D_ACIKLAMA = DBNull.Value.ToString                        Dim D_STKKOD As String = .Rows(ROW).Cells(C_STKKOD).Value.ToString                        If D_STKKOD = "" Then D_STKKOD = DBNull.Value.ToString                        Dim D_TBRM As String = .Rows(ROW).Cells(C_TBRM).Value                        If D_TBRM = "" Then D_TBRM = DBNull.Value.ToString                        Dim D_BARKOD As String = .Rows(ROW).Cells(C_BARKOD).Value.ToString                        If D_BARKOD = "" Then D_BARKOD = DBNull.Value.ToString                        Dim D_USTBRM As String = .Rows(ROW).Cells(C_USTBRM).Value.ToString                        If D_USTBRM = "" Then D_USTBRM = DBNull.Value.ToString                        Dim D_MIKTAR2 As String = .Rows(ROW).Cells(C_MIKTAR2).Value.ToString                        If D_MIKTAR2 = "" Then D_MIKTAR2 = 0                        Dim D_GIDKALEM As String = .Rows(ROW).Cells(C_GIDKALEM).Value.ToString                        If D_GIDKALEM = "" Then D_GIDKALEM = DBNull.Value.ToString                        Dim D_GIDYER As String = .Rows(ROW).Cells(C_GIDYER).Value.ToString                        If D_GIDYER = "" Then D_GIDYER = DBNull.Value.ToString                        Dim D_MUHKOD = .Rows(ROW).Cells(C_MUHKOD).Value                        If D_MUHKOD = "" Then D_MUHKOD = DBNull.Value                        '  MsgBox(.Rows(ROW).Cells(C_TARIH).Value)                        GUN = .Rows(ROW).Cells(C_TARIH).Value                        Dim Comm As New OleDbCommand(STR1, cn)                        Comm.Parameters.AddWithValue("@1", ROW + 1)                        Comm.Parameters.AddWithValue("@2", CARKOD.Text)                        Comm.Parameters.AddWithValue("@3", GUN)                        Comm.Parameters.AddWithValue("@4", MODUL.Text)                        Comm.Parameters.AddWithValue("@5", BELGENO.Text)                        Comm.Parameters.AddWithValue("@6", BA.Text)                        Comm.Parameters.AddWithValue("@7", D_ACIKLAMA)                        Comm.Parameters.AddWithValue("@8", "")                        Comm.Parameters.AddWithValue("@9", D_STKKOD)                        If D_TBRM <> "" Then                            Comm.Parameters.AddWithValue("@10", D_TBRM)                        End If                        Comm.Parameters.AddWithValue("@11", .Rows(ROW).Cells(C_MIKTAR).Value * 1)                        Comm.Parameters.AddWithValue("@12", D_BARKOD)                        Comm.Parameters.AddWithValue("@13", D_USTBRM)                        Comm.Parameters.AddWithValue("@14", D_MIKTAR2)                        Comm.Parameters.AddWithValue("@15", .Rows(ROW).Cells(C_BRMFIYAT).Value * 1)
Member 14588284 29-Jun-20 10:06am View
   
I applauding

Thanks
Member 14588284 29-Jun-20 9:44am View
   
Example
only in one row summing row is "0,36"
but group sum is "0"
same value enter 4 rows then
group sum is "1"
Member 14588284 29-Jun-20 9:36am View
   
Hi again :)
I've realized now
the numbers after the comma do not come when taking the total.
Member 14588284 29-Jun-20 7:16am View
   
thank you very much.
it worked
Member 14588284 29-Jun-20 7:04am View
   
Not like this

my deg (value) =18
i want "018"
Member 14588284 29-Jun-20 6:58am View
   
itried it like
MsgBox(String.Format("{000}", deg))
but its same value
deg=18
String.Format("{000}", deg) =18
String.Format("{0:0.000}", deg) = 18
Member 14588284 18-Jun-20 9:26am View
   
thanks a lot for all again.
Member 14588284 18-Jun-20 8:29am View
   
Thanks for all advises
probably i will take direkt in excel file.
Member 14588284 18-Jun-20 7:40am View
   
i'm copying rows from excel file then paste in richtextbox
then i want fill datagridview tables from richbox lines
i use this way because i didnt find anything pasting direct datagridview

Member 14588284 18-Jun-20 7:30am View
   
i say always because he writed before all member "idiots"

https://yadi.sk/i/TwCHrXOX67ehkA


https://www.codeproject.com/Questions/5261795/Get-data-access-with-hour-condititon
Member 14588284 18-Jun-20 7:20am View
   
With STOK_LIST
' Try
.Rows.Clear()
For x = 0 To RichTextBox1.Lines.Count - 1 Step 1000

Dim tx = RichTextBox1.Lines(x).ToString.Split(vbTab)
Dim i = STOK_LIST.Rows.Add
On Error Resume Next
For s = 0 To 9
.Rows(i).Cells(s).Value = tx(s)
Next s
Next
End With

i changed like this
Member 14588284 18-Jun-20 7:05am View
   
ok i'm sory
I say I don't understand but he laughs
i'm starter in VBnet
Member 14588284 18-Jun-20 6:37am View
   
he is always making smug attitudes
Member 14588284 18-Jun-20 6:33am View
   
you know everything very much but anyone dont read in your brain
Member 14588284 18-Jun-20 6:30am View
   
Deleted
Member 14588284 18-Jun-20 5:42am View
   
of course
but it takes 30 minutes
Member 14588284 18-Jun-20 4:50am View
   
i didnt understand how can i change my codes?
Member 14588284 18-Jun-20 4:30am View
   
i didnt understand :(
Member 14588284 18-Jun-20 3:58am View
   
ı cant open Stack Overflow site for our company proxy rules
can u help prepare an excample code
Member 14588284 18-Jun-20 3:50am View
   
Start by doing the split once per loop, not 11 - Split does a lot of object allocation so it's not fast.

how can i do this?
Member 14588284 1-Jun-20 9:24am View
   
Thank you very much.
İts working. thanks again
Member 14588284 1-Jun-20 7:35am View
   
https://yadi.sk/d/0_1eEcx26yNzZw

i add a simple project
Member 14588284 1-Jun-20 6:22am View
   
https://yadi.sk/i/fAChqfNTtTBvNA

again an error. İf it be easy , i can load a project
Member 14588284 1-Jun-20 5:46am View
   
https://yadi.sk/i/MlPG8m7dJagm7g

r is not defined
Member 14588284 1-Jun-20 5:10am View
   
i have an error on
r(0).Value, .B = r(1).Value}) _

https://yadi.sk/i/-imC8fRtg3d4GA
Member 14588284 1-Jun-20 4:02am View
   
No,
i'm adding manuel
Member 14588284 1-Jun-20 3:55am View
   
Thanks for reply

How can i use this codes between two datagridview

first d.grid is data
second d.grid is sum group
Member 14588284 1-Jun-20 3:42am View
   
Ok.
Member 14588284 1-Jun-20 3:28am View
   
İ Added new image what i want
Thanks
Member 14588284 30-May-20 15:33pm View
   
How can i do it?
Member 14588284 30-May-20 13:50pm View
   
Thanks for answer :)
can we change this codes as a function?
Member 14588284 20-May-20 6:46am View
   
thank you so much.

it will be useful for me
Member 14588284 20-May-20 5:29am View
   
i add a file in yandisk
https://yadi.sk/d/0_1eEcx26yNzZw

Did you look at file?
Member 14588284 20-May-20 3:10am View
   
https://yadi.sk/d/0_1eEcx26yNzZw

i tryed codes but now currentcell is right (side)+down (side) of currentcell

i added a simple file, can you help on this?

Thanks for all
Member 14588284 20-May-20 1:16am View
   
Realy you dont unserstand this?
its pretty simple question!
in datagridview i want select right cell of currentcell

Normaly when i change currentcell value then cursor selecting under of the currentcell


Member 14588284 19-May-20 6:48am View
   
shortly
i want select right cell when combobox changed in datagirdview
Member 14588284 15-May-20 6:48am View
   
i found codes like this
in form load:
For Each cntrl As Control In Me.Controls
AddHandler cntrl.MouseMove, AddressOf Control_MouseMove
Next

Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim cntrl As Control = CType(sender, Control)
MsgBox("hell")
End Sub

but tihs code run only mouse on tabpage
Member 14588284 15-May-20 2:38am View
   
Thanks for suggestion
but its selecting under of first slection again
Member 14588284 11-May-20 3:10am View
   
i didnt use any keypress before
gerenally i used KEYDOWN but not worked
Member 14588284 26-Apr-20 4:12am View
   
Sub detayformagonder() 
            F_CariKayıt.CARKOD3.Text = CARI_TABLO.Rows(CARI_TABLO.CurrentCell.RowIndex).Cells(0).Value
            F_CariKayıt.UNVAN_CEK() 
        End If
        ' Me.Close()
    End Sub


in this code i cant send form2
not working.

F_CariKayıt.CARKOD3.Text is null
Member 14588284 25-Mar-20 9:12am View
   
Canu send me file within theese codes please
i didnt work codes in my file
eror:
https://yadi.sk/i/_yV7a1UNSBnDwg
Member 14588284 25-Mar-20 9:04am View
   
  TOPLAM = "SELECT B.CARKOD,B.TARIH,B.ISLTARIH ,SUM(" & BORC & "- " & ALACAK & ") AS TOPL FROM CARTH001 B  GROUP BY B.CARKOD,B.TARIH,B.ISLTARIH ORDER BY B.CARKOD,B.TARIH,B.ISLTARIH ASC "
TOPLAM2 = "SELECT  CARKOD,TARIH,ISLTARIH,TOPL FROM (" & TOPLAM & ") "
TOPLAM3 = "SELECT SUM(TOPL) FROM (" & TOPLAM2 & ")  WHERE CARKOD=A.CARKOD AND TARIH<=A.TARIH AND ISLTARIH<=B.ISLTARIH "
  SORGU = "SELECT A.CARKOD,A.TARIH,A.ISLTARIH,IIF(A.BA='B',A.TUTAR,0)AS BORC ,IIF(A.BA='A',A.TUTAR*-1,0) AS ALACAK,(" & TOPLAM3 & ") AS BAKIYE FROM CARTH001 A  order by  A.CARKOD,A.TARIH,A.ISLTARIH"

 


I wrote a code like this, but I couldn't :(((
Member 14588284 25-Mar-20 8:57am View
   
Thanks for all Maciaj Los.
But i have to do it in one query.
CARKOD,TARIH,BORC,ALACAK,BAKIYE

And i didnt any solution for this
Member 14588284 22-Mar-20 16:54pm View
   
Thanks for your answer but i try this before
when "CARKOD" add anotherone then "BAKIYE" Not true
Member 14588284 22-Mar-20 15:12pm View
   
but results not true
CARKOD	ISLTARIH	TARIH	KAYITNO	BORC	ALACAC	BAKYIE
12001001	2020-03-11 15:41:19	2020-03-01	3	500		500
12001002	2020-03-15 23:03:41	2020-03-01	1		-500	0
12001001	2020-03-10 11:09:16	2020-03-03	8	600		600
12001001	2020-03-12 16:09:16	2020-03-05	4	600		1200
12001001	2020-03-22 17:01:20	2020-03-05	13		-400	800
12001001	2020-03-20 16:44:01	2020-03-15	12	300		1100
12001001	2020-03-13 22:20:51	2020-03-20	5		-500	400
12001001	2020-03-18 16:40:03	2020-03-20	10	750		1150
12001001	2020-03-19 16:40:30	2020-03-20	11	30		1180
12001001	2020-03-14 23:03:14	2020-03-30	7		-500	600
12001001	2020-03-16 23:03:42	2020-03-30	9		-500	100
12001001	2020-03-17 23:03:47	2020-03-30	6		-500	-600
Member 14588284 22-Mar-20 14:26pm View
   
my mail adress is : [email adrress has been deleted due to spam robots]
Member 14588284 22-Mar-20 14:24pm View
   
i copy codes my file but it didnt work for #

could you send me file please
thanks
Member 14588284 22-Mar-20 14:08pm View
   
SO?
Member 14588284 22-Mar-20 12:58pm View
   
because i must order by date (TARIH)
Member 14588284 22-Mar-20 10:40am View
   
Hi again
can you look again codes ?
i changed order by date and totals are not true

https://yadi.sk/d/4q_RDVxb2JEqtg
Member 14588284 22-Mar-20 9:39am View
   
Thank u very much Maciej Los
i changed theese codes and i did my want
again thank you very much :)
Member 14588284 22-Mar-20 8:08am View
   
?
Member 14588284 22-Mar-20 6:57am View
   
https://yadi.sk/d/4q_RDVxb2JEqtg

in here excample work
Member 14588284 22-Mar-20 6:43am View
   
SORGU = "SELECT CARKOD,TARIH,KAYITNO," & BORC & " AS BORC," & ALACAK & " AS ALACAK," & _
" (SELECT SUM(" & BORC & "-" & ALACAK & ") FROM CARTH001 WHERE TARIH<=A.TARIH AND CARKOD=A.CARKOD )AS BAKIYE " & _
" FROM CARTH001 A GROUP BY " & ALACAK & "," & BORC & ",CARKOD,TARIH,KAYITNO ORDER BY CARKOD,TARIH,KAYITNO"
Member 14588284 22-Mar-20 6:34am View
   
But it gives me wrong total when more then one ıd in same date
Member 14588284 22-Mar-20 6:12am View
   
but that gives me an idea and i find my solution
thanks a lot
Member 14588284 22-Mar-20 6:03am View
   
i read but there for all rows only sum of row
but i want like this
A B c sum(c)
xxxx 01.01.2020 50 50
xxxx 10.02.2020 150 200
xxxx 01.03.2020 175 375
Member 14588284 22-Mar-20 5:48am View
   
i look them but nothing an answer for my question
did u read my question?

simply i say ,
i want like current account statement
Member 14588284 22-Mar-20 5:38am View
   
of course i did
i dont find ayntihng then i write here
Member 14588284 22-Mar-20 5:13am View
   
run-time error '-2147217900 (80040e14)';
Member 14588284 22-Mar-20 4:36am View
   
https://yadi.sk/d/JrEWUe9Jd8U-dQ
error lıke this
Member 14588284 22-Mar-20 4:32am View
   
OrderCategory orderDate SalePrice  sum(saleprice)
xxxx 01.01.2020 50 50
xxxx 10.02.2020 150 200
xxxx 01.03.2020 175 375
Member 14588284 13-Mar-20 16:18pm View
   
cyrstalreport dont work ohter pc
i didnt instal it. alwaysgives error
How can i use theese codes iin reportviewer?
Member 14588284 13-Mar-20 10:11am View
   
i saif first messeage i read too many articles but i Didnt find my answer
Member 14588284 10-Mar-20 8:50am View
   
u cant say anyone "idiot"

if you keep saying , it shows you are idiot
Member 14588284 10-Mar-20 7:27am View
   
i changed my codes....

Dim dtTARIH As DateTime = TARIH.Value
Dim S1 = Strings.Left(SAAT.Text, 2)
Dim S2 = Strings.Right(SAAT.Text, 2)
Dim srg_1 = "SELECT TARIH,SAAT,FISNO,TUTAR FROM ARACTAKIP WHERE PLAKA='" & PLAKA.Text & "' AND TARIH = @ST AND LEFT(SAAT,2) >= " & S1 & " AND MID(SAAT,4,2) >= " & S2 & ""
Dim srg_2 = "SELECT TARIH,SAAT,FISNO,TUTAR FROM ARACTAKIP WHERE PLAKA='" & PLAKA.Text & "' AND TARIH > @ST "
Dim SRG = "SELECT * FROM (" & srg_1 & " UNION ALL " & srg_2 & ") ORDER BY TARIH,SAAT"
Dim SRG1 As New OleDbCommand(srg, cn)
SRG1.Parameters.AddWithValue("@ST", dtTARIH)
Member 14588284 10-Mar-20 7:25am View
   
WHY u send same message all questions??
Member 14588284 1-Mar-20 15:55pm View
   
Thank you very much

i used this code
its working thans again

Private Sub RAPOR_ColumnDisplayIndexChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewColumnEventArgs) Handles RAPOR.ColumnDisplayIndexChanged
FILTRE2.Rows.Clear()
Dim colList = From column In RAPOR.Columns.Cast(Of DataGridViewColumn)() Order By column.DisplayIndex

For Each col As DataGridViewColumn In colList
FILTRE2.Rows.Add(col.DisplayIndex, col.HeaderText)
Next

End Sub
Member 14588284 1-Mar-20 14:57pm View
   
essentially i want this

when i changed datagrid column position then
another datagrid rows change like
my first datagrid columns header text
With FILTRE2
.Rows.Clear()
For s = 0 To RAPOR.Columns.Count - 1
.Rows.Add()
.Rows(.Rows.Count - 1).Cells(0).Value = .Rows.Count
.Rows(.Rows.Count - 1).Cells(1).Value = RAPOR.Columns(s).HeaderText
Next

End With
Member 14588284 24-Feb-20 1:14am View
   
i just want to load excel table to acces database.
and I want to do this work with the copy-paste method
Member 14588284 24-Jan-20 2:45am View
   
I didnt find a solution yet*

Anybody have an idea?
Member 14588284 20-Jan-20 5:56am View
   
so,
How can I download without additional manual action?

Normally when I paste the link to chrome or mozilla browser, I can download it only entering the username and password
Member 14588284 21-Dec-19 7:17am View
   
its simple question;
i want select same cell when datagridvew cell change

not next row
Member 14588284 12-Dec-19 6:03am View
   
wait form's codes like this

Public Class F_loading


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackgroundWorker1.RunWorkerAsync()
End Sub


Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, _
ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
önlistecek()
End Sub

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, _
ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
Me.ProgressBar1.Value = e.ProgressPercentage
Me.Label1.Text = TryCast(e.UserState, String)

End Sub


Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, _
ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
Me.Label1.Text = "Operation complete"
End Sub
End Class

first form codes :
Dim frm As New F_loading
frm.ShowDialog()
Member 14588284 12-Dec-19 5:39am View
   
I tried but didn't, how do I fit my code
Member 14588284 12-Dec-19 4:38am View
   
i changed progressbar with webbrowser but i didnt solve my problem

so i dont use giff or progressbar


Private Sub yenile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yenile.Click
F_loading.Show()
F_loading.WebBrowser1.Navigate("about:")
önlistecek()


onay.Columns(0).Width = 80
rapor.Columns(0).Width = 80
rapor.Columns(1).Width = 300
onay.Columns(1).Width = 300
F_loading.Close()
End Sub
Member 14588284 2-Dec-19 7:03am View
   
i Changed ,
But all data came "0"
Member 14588284 2-Dec-19 5:26am View
   
Int32.Parse(lbl2.Text)
When i write this code then i cant get any data
Member 14588284 2-Dec-19 5:20am View
   
Int32.Parse(lbl2.Text)
i used but it dosent work
Member 14588284 2-Dec-19 4:50am View
   
i do that because lbl2.text getting excel text format
when i write *1 then geting number format
Member 14588284 2-Dec-19 4:29am View
   
yes,
Member 14588284 26-Nov-19 11:11am View
   
hi for example;
a list like this
1
2
3
4
6
7
8
10

i want find in this series 5 and 9
Member 14588284 1-Nov-19 9:44am View
   
OK THANS
Member 14588284 1-Nov-19 9:16am View
   
so i must use for all options different querys?
isnt it
Member 14588284 1-Nov-19 8:59am View
   
hi,
i dont use
DROP TABLE MyTable
codes ?
i don understand this? my database deletin when i use this codes?

my all querys i dont use any code except "select"
Member 14588284 20-Oct-19 14:15pm View
   
I thought without form, but I think there is no different method.
thank you
Member 14588284 3-Oct-19 2:50am View
   
Hi,
İ changed codes but it doesnt update

Sub updatesave()
            Dim Con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Veritabanı\Veritabanı.mdb")
        
        Dim STR1 As String
        Con.Open()
        With Form2

            Dim A = Year(.gün.Value)
            Dim B = .gün.Value.ToString("dd/MM/yyyy")
            Dim C = .firma.Text
            Dim D = .gelenfirma.Text
            Dim E = .satinalma.Text
            Dim G = .aciklama.Text
            Dim H = .randevu.CheckState


            STR1 = "UPDATE rapor SET  YIL='" & A & "',TARIH='" & B & "',FIRMA='" & C & "',FIRMACI='" & D & "',SATINALMA='" & E & "' , ACIKLAMA='" & G & "',RANDEVU='" & H & "'" & _
                  " WHERE  TARIH = '" & Form2.kosul1tar.Text & "' And  KAYITZ  = '" & .kosul2kzaman.Text & "' And   FIRMA = ' " & Form2.kosul3firma.Text & "'   And   FIRMACI = ' " & Form2.kosul4gfirma.Text & "'"
            Dim cmd As OleDbCommand = New OleDbCommand(STR1, Con)
            cmd.ExecuteNonQuery()

            Con.Close()

        End With
      
    End Sub
Member 14588284 22-Sep-19 16:24pm View
   
https://yadi.sk/d/tSCetwzo0y8tcA

my project here
Member 14588284 22-Sep-19 16:24pm View
   
my project in then link
https://yadi.sk/d/tSCetwzo0y8tcA
i wnat remind that; i can open form1 but form1's codes not working
Member 14588284 12-Sep-19 10:12am View
   
but i Get these data fromdatagridview
Member 14588284 12-Sep-19 9:59am View
   
Sub match()
With reyon
On Error Resume Next
For i = 0 To .Rows.Count - 1
.Rows(i).Cells(1).Value = Val(.Rows(i).Cells(1).Value * 1)
For i2 = 0 To reyonadıfrm.Rows.Count - 1
' .Rows(i).Cells(0).Value.ToString()
If .Rows(i).Cells(0).Value = reyonadıfrm.Rows(i2).Cells(0).Value Then
.Rows(i).Cells(0).Value = .Rows(i).Cells(0).Value & "-" & reyonadıfrm.Rows(i2).Cells(1).Value
Exit For
End If

Next i2


Next i
End With
End Sub


I changed my codes like this
so ı do it
bu now i have an ordering problem

codes order column(1) like text
like this link;
https://yadi.sk/i/OtS6Xqe_Q-h48A
Member 14588284 12-Sep-19 8:37am View
   
can i use datagridview in query?

i say , when i use join in my oracle query time is getting longer
Member 14588284 12-Sep-19 8:24am View
   
my code like this

and error is this address
https://yadi.sk/i/4tMuaDzBZLyZ-g

With Me.reyon
' .Columns(0).DefaultCellStyle.Format = "#"
Try
For i = 0 To .Rows.Count - 1

For i2 = 0 To reyonadıfrm.Rows.Count - 1
If .Rows(i).Cells(0).Value = reyonadıfrm.Rows(i2).Cells(0).Value Then
.Rows(i).Cells(0).Value = reyonadıfrm.Rows(i2).Cells(1).Value
End If

Next i2


Next i
Member 14588284 12-Sep-19 8:09am View
   
thanks for return
I get both tables from the oracle connection
but I need to match the columns over two tables after the query.
I read the article but could not find anything related to my question