Comments by Member 14588284

Member 14588284 8-Mar-22 0:13am View

Thanks for answer :)
But codes turn "no results"

Member 14588284 14-Nov-21 12:20pm View

You're just posting irrelevant answers.
I wrote it thinking maybe someone might know. If you don't know, please don't reply.

Member 14588284 14-Nov-21 6:16am View

if there was a platform where I could ask questions, I would have asked

Member 14588284 25-Oct-21 15:00pm View

i tried it but number is:1.2345,68

Member 14588284 14-Oct-21 10:03am View

Thanks all :))

Member 14588284 14-Oct-21 6:46am View

of course i dont think oracle and access works same querys

but i find theese codes for access

https://stackoverflow.com/questions/17068079/ms-access-complex-grouping-and-sum
https://stackoverflow.com/questions/42285550/ms-access-sql-update-join-query-with-sum-from-another-table

Member 14588284 14-Oct-21 6:39am View

i use same query with ORACLE
its working. but for access not working

Member 14588284 14-Oct-21 5:12am View

Same error :(

Member 14588284 14-Oct-21 4:52am View

i checed permissions thats ok.
always i can update table but with this code i get error.

"UPDATE OGRENCILIST SET BORÇ=500" --ok
"UPDATE OGRENCILIST SET BORÇ=(SELECT SUM(BORÇ) FROM HAREKETLER WHERE CARKOD=OGRENCILIST.CARKOD)" --error

Member 14588284 14-Oct-21 4:09am View

Dim UPT_OGRLIST = "UPDATE OGRENCILIST SET BORÇ=(SELECT SUM(BORÇ) FROM HAREKETLER WHERE CARKOD=OGRENCILIST.CARKOD)"
Dim cm_OGRLIST As OleDbCommand = New OleDbCommand(UPT_OGRLIST, cn_access)
'Dim dr_UOGRLIST As OleDbDataReader = cm_OGRLIST.ExecuteReader **** i removed this line
cm_OGRLIST.ExecuteNonQuery()

But same error

Member 14588284 14-Oct-21 3:39am View

How can i change my codes?

Member 14588284 14-Oct-21 3:16am View

i' using of course
i can update table with this code
"UPDATE OGRENCILIST SET BORÇ=500"

Member 14588284 16-Aug-21 10:43am View

of course i did it
but i think you dont read my question?
because i dont ask datagridview i asked for gridcontrol (devekspres gridview)

Member 14588284 16-Aug-21 9:57am View

datargrid codes was example theese codes not work with devekspres gridvew
so
i want change backcolor of gridvew row

i used this code but its change only focused row
" GridView2.Appearance.FocusedRow.BackColor = Color.Red"

Member 14588284 2-May-21 13:51pm View

hi i added system.data.datasetextensions
but i get error in theeselines
Dim dt1Rows = dt1.AsEnumerable()
Dim dt2Rows = dt2.AsEnumerable()
Dim comparer = DataRowComparer.Default

can u send me an example file please :)

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

oki'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

Comments by Member 14588284 (Top 152 by date)