Cursor Adapter Hk. (Sayfa 1 / 2)

**ugurlu2001** · 07.02.2010 22:19:37

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Konu: Cursor Adapter Hk.

Üstat ve Usta lardan "Cursor Adapter" hakkında biraz temel bilgi almamız mümkün olabilir mi?

SPT mi daha kullanışlıdır yoksa Cursor Adapter mi? Yada her ikisininde kendine göre avantajları mı vardır?

Sınıf olarak bir data environment içerisinde nasıl kullanabilriz ( yada kullanmalı isek nerede ve nasıl kullanabiliriz? )

Konu hakkında sormak istediğim çok şey var ama SPT nin genel çalışma mantığını ve beckend kısmının nasıl yürüdüğünü iyi bildiğim halde CA hakkında hiç bilgim yok. Acaba gereksiz şey(ler)mi soruyorum diyer kendime hayıflanıyorum bir yandan.

Özetle :
-----------
1. CA nedir?

2. Nerede ve nasıl kullanırılır?

3. Avantajları / dezavantajları nelerdir?

4. Hiç CA kullanmadan tüm işleri SPT ile yapmak mümkün olurmu. Olursa işi çok mu uzatırız?,

5. Konu hakkında basit ve "açıklamalı" bir örnek alabilirmiyiz?

Yorum ve açıklama yapan herkes için şimdiden çok teşekkür ediyorum.

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü

**cetinbasoz** · 08.02.2010 03:16:43

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: Cursor Adapter Hk.

CA daha kullanisli.

1) CA bir class. Herhangi bir veri kaynagi icin 'adaptor'.
2) Cursorlarin kullanildigi her yerde kullanilabilir. O class'tan bir obje yaratirsin, Cursorfill() ile cursor olusturup kullanirsin.
3) RV ve SPT'de sadece ODBC kullanma olanagi var. CA'da ise ODBC,OLEDB, XML ya da native kaynak olabilir. CA ile yazdiysan, farkli kaynaklara adaptasyon cok daha kolay. Butun yapman gereken farkli bir classtan objeni yaratmak. Ornegin:

Visual Fox Pro

oCustomer = createobject( "CA_Customer","SQLServer.prg")

oCustomer = createobject( "CA_Customer","VFP.prg")

oCustomer = createobject( "CA_Customer","Oracle.prg")

 

* oCustomer.Alias = 'Customer'

oCustomer.Cursorfill(....)

SPT'de cursor schema belirleyemiyorsun, CA'da (ve RV'de) var. RV ve SPT'de update optimizasyonu yapamiyorsun, CA'da var. CA'nin eventleri var (bazen ise yariyabilir), SPT'de yok. SPT'de sadece ODBC kullanmak, gelisen ODBC'ye artik ayak uyduramayan VFP'nin hatalarini da kabullenmek demek.

En buyuk dezavantaji, cok buyuk bir class, tamamini ogrenmek cok zaman alir. Veri kaynagini da taniman lazim, veri kaynagina gore davranislar farkli olabiliyor.

4) Hic CA kullanmadan SPT ile yapmak mumkun olabilir, senin veri kaynagin ve kulladigin data tiplerine bagli. Datatipleri gelisyor, degisiyor ama VFP ODBC degerlendirmesi hala gecmiste kaldi ve artik duzeltilme umudu da yok (benim yok en azindan).

5) Istanbul'da Soykan'in gosterdigi formu hatirliyor musun? O basitce bir takim SQL...() fonksiyonu uzerinden CA kullaniyordu. Dogrudan onlari kullanirsan hemen CA kullanmaya baslaman mumkun. Gelecek hafta sonu istersen hizli bir sekilde bakariz.

**mrduyar** · 08.02.2010 09:11:07

mrduyar
Uzman Üye
Offline

Yer: Antalya
Kayıt Tarihi: 09.10.2006
İleti: 620

Re: Cursor Adapter Hk.

Selamlar;

CA ile ilgili istanbulda ki toplantıda gösterilen çok güzel bir örnek vardı. Elinde olan arkadaş var ise yayınlarsa çok iyi olur sanırım.

Bilmediğin Neyse Yanıldığındır.

**ugurlu2001** · 08.02.2010 15:45:00

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Re: Cursor Adapter Hk.

Merhaba Ramazan;

O örneklerin bende olması lazım. Evdeki PC ye kopyalamış olmalıyım diye hatırlıyorum. 1-2 güne kadar isteyen arkadaşlara mail atabilirim.

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü

**ugurlu2001** · 08.02.2010 15:56:15

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Re: Cursor Adapter Hk.

Üstad,

Öncelikle ellerine sağlık.

Senin yazdıklarını görmeden önce dün akşam bende biraz CA çalıştım. Daha doğrusu konu hakkında yüzeysel bir araştırma yapabildim.

En basit olarak sormak istediğim şu:

Diyelim ki bir ürünümüz var. Kodu "ABC-001" olsun.

"ABC-001" kodlu ürünü "001 Cari" nolu firmaya çıktım.

Aşağıdaki 3 işlemi yapmak istiyorum :

1. "ABC-001" kodlu ürünü otomatik olarak stok dosyamdan düşmeli
2. "001 Cari" nolu firmanın bakiyesi, ürünün satışı fiyatı kadar artsın.
3."ABC-001" ürünün satılan adedi kadar otomatik olarak sipariş dosyama eklensin.

Böyle bir yöntemde: hem Stok, Hem Cari hemde Sipariş dosyaları üzerinde işlem yapmak gerekiyor.

** Cursor Adapter ile bu işlemlerin nasıl olması gerektiğini tam kavrayamadım.

SQL Server ile BeginTRan / EndTran arasında Transac komutları yazarak işimizi görebiliyoruz. Sorun olduğunda Rollback - sorun yoksa Commit . Begin / End aralığında başka bir kullanıcı / işlemin bizi kesmediğini, parçalı işlem yapmadığımızı garanti ediyoruz.

Bu kadar basit ( yada bana öyle geliyor. )

Ancak SPT ile de 3 farkı Cursor 'e ait datayı VFP içerisinden dinamik bir şekilde nasıl yolluycaz?

Kafam öyle karıştı ki? Basit bir örnek istesem çok mu olurum. Yada zor bir şey mi istiyorum.

Yorum ve açıklamalar için şimdiden çok ama çok teşekkür ediyorum...

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü

**soykanozcelik** · 08.02.2010 16:22:33

soykanozcelik
Uzman Üye
Offline

Yer: Tekirdağ
Kayıt Tarihi: 25.08.2006
İleti: 1,513

Re: Cursor Adapter Hk.

Eger bahsedilen benim bulusma icin yaptigim ornek ise asagidaki linkten projeyi ve SQL Datayi indirebilir.
www.soykansoft.com/downloads/depomatik_sql.rar && Project
www.soykansoft.com/downloads/fox4um_sql_data.rar && SQL Data

bulusmada anlatmistim kısaca yine belirtmek isterim. burada kullanilan yontem varolan VFP datasini Cetin hocanin SQL Class lari ile SQL olarakta kullanabilmeyi saglaması

olmazsa olmazlar
1-tablolar DataEnvironmentta olmali

2-SQL Serverda tablo ve field lar ayni isme sahip olmali ( classlar runtime da DE deki tablolari basamak olarak kullanip CA donusumlerini yapiyor SQL serverdan datayi getiriyor )

3-ca_vfp.prg ve ca_sql.prg lerde SQL Class larin kullanacagiz Schemalar tanimlanmis olmali ( Bknz:) libs\ca_vfp.prg ve libs\ca_sql.prg)

4-projedeki formlardaki Data Envrimonment ta Before Open Tables kısmına bakın UpdateDe(this) komutu ile yukarida anlattigim donusumlerin yaptirildigi yer , updateDE.prg kodlarini inceleyin.

kısaca boyle projeyi incelediginizde fikir sahibi olacaginizi dusunuyorum.

scriptle SQL Data yaratmak isterseniz.

* database olusturan Script

SQL

USE [master]

GO

 

/****** Object:  Database [fox4um]    Script Date: 02/08/2010 16:11:11 ******/

CREATE DATABASE [fox4um] ON  PRIMARY 

( NAME = N'fox4um', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL10.MSSQLSERVER\MSSQL\DATA\fox4um.mdf' , SIZE = 4352KB , MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB )

 LOG ON 

( NAME = N'fox4um_log', FILENAME = N'C:\Program Files\Microsoft SQL Server\MSSQL10.MSSQLSERVER\MSSQL\DATA\fox4um_log.LDF' , SIZE = 1088KB , MAXSIZE = 2048GB , FILEGROWTH = 10%)

GO

 

ALTER DATABASE [fox4um] SET COMPATIBILITY_LEVEL = 100

GO

 

IF (1 = FULLTEXTSERVICEPROPERTY('IsFullTextInstalled'))

begin

EXEC [fox4um].[dbo].[sp_fulltext_database] @action = 'enable'

end

GO

 

ALTER DATABASE [fox4um] SET ANSI_NULL_DEFAULT OFF 

GO

 

ALTER DATABASE [fox4um] SET ANSI_NULLS OFF 

GO

 

ALTER DATABASE [fox4um] SET ANSI_PADDING OFF 

GO

 

ALTER DATABASE [fox4um] SET ANSI_WARNINGS OFF 

GO

 

ALTER DATABASE [fox4um] SET ARITHABORT OFF 

GO

 

ALTER DATABASE [fox4um] SET AUTO_CLOSE OFF 

GO

 

ALTER DATABASE [fox4um] SET AUTO_CREATE_STATISTICS ON 

GO

 

ALTER DATABASE [fox4um] SET AUTO_SHRINK OFF 

GO

 

ALTER DATABASE [fox4um] SET AUTO_UPDATE_STATISTICS ON 

GO

 

ALTER DATABASE [fox4um] SET CURSOR_CLOSE_ON_COMMIT OFF 

GO

 

ALTER DATABASE [fox4um] SET CURSOR_DEFAULT  GLOBAL 

GO

 

ALTER DATABASE [fox4um] SET CONCAT_NULL_YIELDS_NULL OFF 

GO

 

ALTER DATABASE [fox4um] SET NUMERIC_ROUNDABORT OFF 

GO

 

ALTER DATABASE [fox4um] SET QUOTED_IDENTIFIER OFF 

GO

 

ALTER DATABASE [fox4um] SET RECURSIVE_TRIGGERS OFF 

GO

 

ALTER DATABASE [fox4um] SET  ENABLE_BROKER 

GO

 

ALTER DATABASE [fox4um] SET AUTO_UPDATE_STATISTICS_ASYNC OFF 

GO

 

ALTER DATABASE [fox4um] SET DATE_CORRELATION_OPTIMIZATION OFF 

GO

 

ALTER DATABASE [fox4um] SET TRUSTWORTHY OFF 

GO

 

ALTER DATABASE [fox4um] SET ALLOW_SNAPSHOT_ISOLATION OFF 

GO

 

ALTER DATABASE [fox4um] SET PARAMETERIZATION SIMPLE 

GO

 

ALTER DATABASE [fox4um] SET READ_COMMITTED_SNAPSHOT OFF 

GO

 

ALTER DATABASE [fox4um] SET HONOR_BROKER_PRIORITY OFF 

GO

 

ALTER DATABASE [fox4um] SET  READ_WRITE 

GO

 

ALTER DATABASE [fox4um] SET RECOVERY FULL 

GO

 

ALTER DATABASE [fox4um] SET  MULTI_USER 

GO

 

ALTER DATABASE [fox4um] SET PAGE_VERIFY CHECKSUM  

GO

 

ALTER DATABASE [fox4um] SET DB_CHAINING OFF 

GO

* SQL tabloları olusturan script

SQL

USE [fox4um]

GO

/****** Object:  Table [dbo].[stok]    Script Date: 02/08/2010 16:09:53 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo].[stok](

    [skodu] [char](16) NOT NULL,

    [sadi] [char](25) NULL,

    [birim] [char](3) NULL,

    [myguid] [char](38) NOT NULL,

 CONSTRAINT [PK_stok] PRIMARY KEY NONCLUSTERED 

(

    [myguid] ASC

)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

GO

/****** Object:  Table [dbo].[siparisd]    Script Date: 02/08/2010 16:09:53 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo].[siparisd](

    [sipno] [int] NOT NULL,

    [skodu] [char](16) NULL,

    [miktar] [float] NULL,

    [fiyat] [float] NULL,

    [tutar] [float] NULL,

    [myguid] [char](38) NOT NULL,

    [pmyguid] [char](38) NOT NULL,

 CONSTRAINT [PK_siparisd] PRIMARY KEY NONCLUSTERED 

(

    [myguid] ASC

)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

GO

/****** Object:  Table [dbo].[siparisb]    Script Date: 02/08/2010 16:09:53 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo].[siparisb](

    [sipno] [int] IDENTITY(5,1) NOT FOR REPLICATION NOT NULL,

    [tarih] [datetime] NULL,

    [ckodu] [char](16) NULL,

    [myguid] [char](38) NOT NULL,

 CONSTRAINT [PK_siparisb] PRIMARY KEY NONCLUSTERED 

(

    [myguid] ASC

)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

GO

/****** Object:  Table [dbo].[params]    Script Date: 02/08/2010 16:09:53 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo].[params](

    [_datapath] [char](10) NULL,

    [_server] [char](10) NULL,

    [_username] [char](10) NULL,

    [_password] [char](10) NULL,

    [_datamode] [char](10) NULL

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

GO

/****** Object:  Table [dbo].[firma]    Script Date: 02/08/2010 16:09:53 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo].[firma](

    [firmaadi] [char](50) NULL,

    [ssksicilno] [char](15) NULL,

    [arkaresim] [char](100) NULL,

    [yetkili] [char](30) NULL,

    [adres1] [char](50) NULL,

    [adres2] [char](50) NULL,

    [tel] [char](15) NULL,

    [fax] [char](15) NULL,

    [email] [char](30) NULL,

    [gsm] [char](15) NULL,

    [vda] [char](20) NULL,

    [vno] [char](10) NULL,

    [banka1] [char](25) NULL,

    [hesap1] [char](15) NULL,

    [banka2] [char](25) NULL,

    [hesap2] [char](15) NULL,

    [banka3] [char](25) NULL,

    [hesap3] [char](15) NULL,

    [foto] [char](20) NULL

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

GO

/****** Object:  Table [dbo].[cari]    Script Date: 02/08/2010 16:09:53 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo].[cari](

    [myguid] [char](38) NOT NULL,

    [ckodu] [char](16) NOT NULL,

    [cadi] [char](25) NULL,

 CONSTRAINT [PK_cari] PRIMARY KEY NONCLUSTERED 

(

    [myguid] ASC

)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

GO

/****** Object:  Default [dbo].[UW_ZeroDefault]    Script Date: 02/08/2010 16:09:51 ******/

CREATE DEFAULT [dbo].[UW_ZeroDefault] AS 0

GO

/****** Object:  Table [dbo].[user01]    Script Date: 02/08/2010 16:09:53 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo].[user01](

    [idno] [char](10) NOT NULL,

    [kull] [char](10) NULL,

    [sifre] [char](10) NULL,

    [level] [char](1) NULL,

    [supervisor] [bit] NOT NULL,

    [formadi] [char](30) NULL,

    [formtanimi] [char](30) NULL,

    [oku] [bit] NOT NULL,

    [yaz] [bit] NOT NULL,

    [duzenle] [bit] NOT NULL,

    [sil] [bit] NOT NULL

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

GO

/****** Object:  Table [dbo].[user]    Script Date: 02/08/2010 16:09:53 ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

SET ANSI_PADDING ON

GO

CREATE TABLE [dbo].[user](

    [userid] [int] NOT NULL,

    [idno] [char](10) NOT NULL,

    [kull] [char](10) NULL,

    [sifre] [char](10) NULL,

    [level] [char](1) NULL,

    [supervisor] [bit] NOT NULL,

    [formadi] [char](30) NULL,

    [logged] [bit] NOT NULL,

    [macid] [char](12) NULL,

    [depokodu] [char](3) NULL

) ON [PRIMARY]

GO

SET ANSI_PADDING OFF

GO

/****** Object:  Default [DF_cari_myguid]    Script Date: 02/08/2010 16:09:53 ******/

ALTER TABLE [dbo].[cari] ADD  CONSTRAINT [DF_cari_myguid]  DEFAULT (newid()) FOR [myguid]

GO

/****** Object:  Default [DF_siparisb_myguid]    Script Date: 02/08/2010 16:09:53 ******/

ALTER TABLE [dbo].[siparisb] ADD  CONSTRAINT [DF_siparisb_myguid]  DEFAULT (newid()) FOR [myguid]

GO

/****** Object:  Default [DF_siparisd_myguid]    Script Date: 02/08/2010 16:09:53 ******/

ALTER TABLE [dbo].[siparisd] ADD  CONSTRAINT [DF_siparisd_myguid]  DEFAULT (newid()) FOR [myguid]

GO

/****** Object:  Default [DF_stok_myguid]    Script Date: 02/08/2010 16:09:53 ******/

ALTER TABLE [dbo].[stok] ADD  CONSTRAINT [DF_stok_myguid]  DEFAULT (newid()) FOR [myguid]

GO

* ornek Data Insert

SQL

SET NUMERIC_ROUNDABORT OFF

GO

SET XACT_ABORT, ANSI_PADDING, ANSI_WARNINGS, CONCAT_NULL_YIELDS_NULL, ARITHABORT, QUOTED_IDENTIFIER, ANSI_NULLS, NOCOUNT ON

GO

SET DATEFORMAT YMD

GO

-- Pointer used for text / image updates. This might not be needed, but is declared here just in case

DECLARE @pv BINARY(16)

 

BEGIN TRANSACTION

 

-- Add 1 row to [dbo].[firma]

INSERT INTO [dbo].[firma] ([firmaadi], [ssksicilno], [arkaresim], [yetkili], [adres1], [adres2], [tel], [fax], [email], [gsm], [vda], [vno], [banka1], [hesap1], [banka2], [hesap2], [banka3], [hesap3], [foto]) VALUES (N'SoykanSoft                                        ', N'12345678901    ', NULL, N'Soykan ÖZÇELİK                ', N'address                                           ', NULL, NULL, NULL, N'soykan@soykansoft.com         ', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, N'firma_foto.png      ')

 

-- Add 1 row to [dbo].[params]

INSERT INTO [dbo].[params] ([_datapath], [_server], [_username], [_password], [_datamode]) VALUES (NULL, N'FOX_W7_RTM', NULL, NULL, N'SQL       ')

 

-- Add 10 rows to [dbo].[cari]

INSERT INTO [dbo].[cari] ([myguid], [ckodu], [cadi]) VALUES (N'{CFC450B0-B346-40D2-A31F-7E4C34AAB54D}', N'S-001           ', N'Soykan ÖZCELIK           ')

INSERT INTO [dbo].[cari] ([myguid], [ckodu], [cadi]) VALUES (N'{F91C52C2-F177-485C-A761-578378F5F1D7}', N'C-001           ', N'Cetin BASOZ123           ')

INSERT INTO [dbo].[cari] ([myguid], [ckodu], [cadi]) VALUES (N'0F63D0B4-4F39-448A-9C87-B0A30CD0D5C3  ', N'AO              ', N'Ata ÖZÇELİK              ')

INSERT INTO [dbo].[cari] ([myguid], [ckodu], [cadi]) VALUES (N'36C4492D-AD8D-472B-9622-814390DF0650  ', N'CC              ', N'cihan cakmak           ')

INSERT INTO [dbo].[cari] ([myguid], [ckodu], [cadi]) VALUES (N'6C5E5798-2A8D-4114-A8E7-C349A2E95CEF  ', N'T001            ', N'Timucin ARAL             ')

INSERT INTO [dbo].[cari] ([myguid], [ckodu], [cadi]) VALUES (N'6C79B9DC-0ABF-4E45-9E5A-1AD7F1DD4690  ', N'JUKI            ', N'BHFFFF                   ')

INSERT INTO [dbo].[cari] ([myguid], [ckodu], [cadi]) VALUES (N'89F35A6F-A607-4ECA-9D2A-5DFE0E0B0DA1  ', N'eeeee           ', N'eeeee                    ')

INSERT INTO [dbo].[cari] ([myguid], [ckodu], [cadi]) VALUES (N'AAF7D987-CA94-4969-BEEF-0D5833FB8223  ', N'EY              ', N'Erdal YALCIN             ')

INSERT INTO [dbo].[cari] ([myguid], [ckodu], [cadi]) VALUES (N'D0BCE6AA-D8B4-4990-9C60-6526ADD2207A  ', N'DH              ', N'Dila Hatem ÖZÇELİK       ')

INSERT INTO [dbo].[cari] ([myguid], [ckodu], [cadi]) VALUES (N'E230D7C7-294C-4C9F-8C19-D98AE47E685C  ', N'sdsdf           ', N'FFFFFFFFFFFFFFFFFFFF     ')

 

-- Add 2 rows to [dbo].[siparisb]

SET IDENTITY_INSERT [dbo].[siparisb] ON

INSERT INTO [dbo].[siparisb] ([myguid], [sipno], [tarih], [ckodu]) VALUES (N'4526CFAB-9CB4-4932-8BF7-0EDF82B928B2  ', 5, '2009-10-21 00:00:00.000', N'S001            ')

INSERT INTO [dbo].[siparisb] ([myguid], [sipno], [tarih], [ckodu]) VALUES (N'75684BA5-BBDA-4C95-B210-9B5CC466602D  ', 6, '2009-12-04 00:00:00.000', N'BEN             ')

SET IDENTITY_INSERT [dbo].[siparisb] OFF

 

-- Add 8 rows to [dbo].[siparisd]

INSERT INTO [dbo].[siparisd] ([myguid], [sipno], [skodu], [miktar], [fiyat], [tutar], [pmyguid]) VALUES (N'1383F0DF-2DE5-46E1-8BE0-857BCA079682  ', 6, N'HYU             ', 11, 23, NULL, N'75684BA5-BBDA-4C95-B210-9B5CC466602D  ')

INSERT INTO [dbo].[siparisd] ([myguid], [sipno], [skodu], [miktar], [fiyat], [tutar], [pmyguid]) VALUES (N'317CBB50-F7B6-4CFE-BA2C-BC71C65F57E5  ', 5, N'CCCC            ', 78, 78, NULL, N'4526CFAB-9CB4-4932-8BF7-0EDF82B928B2  ')

INSERT INTO [dbo].[siparisd] ([myguid], [sipno], [skodu], [miktar], [fiyat], [tutar], [pmyguid]) VALUES (N'53E88771-DAB7-46E4-A757-93B582A7CADE  ', 0, N'O               ', 12, 12, NULL, N'{145FE240-B586-46FF-AF9B-1A352C44D9E8}')

INSERT INTO [dbo].[siparisd] ([myguid], [sipno], [skodu], [miktar], [fiyat], [tutar], [pmyguid]) VALUES (N'7CE655B5-4F0C-4AC8-8885-9D3028D8ED4B  ', 6, N'HKK             ', 12, 3, NULL, N'75684BA5-BBDA-4C95-B210-9B5CC466602D  ')

INSERT INTO [dbo].[siparisd] ([myguid], [sipno], [skodu], [miktar], [fiyat], [tutar], [pmyguid]) VALUES (N'9A4251BD-1FD0-46B6-A2EF-1E3B27255EF6  ', 0, N'SQL             ', 10, 2, NULL, N'{E08FB2A8-C449-46DA-8E45-CE6D8083E134}')

INSERT INTO [dbo].[siparisd] ([myguid], [sipno], [skodu], [miktar], [fiyat], [tutar], [pmyguid]) VALUES (N'9FC6330D-2769-446D-9502-3A4AD92D006D  ', 6, N'HY              ', 12, 23, NULL, N'75684BA5-BBDA-4C95-B210-9B5CC466602D  ')

INSERT INTO [dbo].[siparisd] ([myguid], [sipno], [skodu], [miktar], [fiyat], [tutar], [pmyguid]) VALUES (N'AE28B9A2-6729-43FD-923B-F6AD3CA2F9C0  ', 6, N'JU              ', 23, 23, NULL, N'75684BA5-BBDA-4C95-B210-9B5CC466602D  ')

INSERT INTO [dbo].[siparisd] ([myguid], [sipno], [skodu], [miktar], [fiyat], [tutar], [pmyguid]) VALUES (N'E6EF64FB-B1D6-4D2B-B1CA-D8D837C8115D  ', 5, N'NHJ             ', 334, 34, NULL, N'4526CFAB-9CB4-4932-8BF7-0EDF82B928B2  ')

 

-- Add 2 rows to [dbo].[stok]

INSERT INTO [dbo].[stok] ([myguid], [skodu], [sadi], [birim]) VALUES (N'D973D582-CF3B-4559-9B45-31DFF5C862C5  ', N'SQL3            ', N'SQL33333                 ', N'AD ')

INSERT INTO [dbo].[stok] ([myguid], [skodu], [sadi], [birim]) VALUES (N'E8DD56B2-86E7-447A-B40E-BD7A160C71D2  ', N'SQL             ', N'SQLll                    ', N'm3 ')

 

COMMIT TRANSACTION

GO

https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

**metin** · 08.02.2010 16:26:05

metin
Uzman Üye
Offline

Yer: istanbul
Kayıt Tarihi: 16.10.2006
İleti: 1,460

Re: Cursor Adapter Hk.

UT'de benim cursor adapter class'ımı indirirsen (sadece sql server ile çalışıyor), o senin yerine cursor adapter kodlarını bir .prg içine yazıyor. data environment'tan builder ile bazı problemler çıkıyor. bunda o problemler yok.

http://www.universalthread.com/Report.a … 6E33546553

mesela benim class longint ve varchar alanları doğru görüyor. char olarak almıyor. builderde 512 karakter problemi var. "i" harfi kullanılan fieldlarda problemler yaşanıyor. onları tek tek elle düzeltmek gerekiyor.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

**metin** · 08.02.2010 16:28:25

metin
Uzman Üye
Offline

Yer: istanbul
Kayıt Tarihi: 16.10.2006
İleti: 1,460

Re: Cursor Adapter Hk.

yalnız linq'yu sadece ucundan inceledim ve şunu söyleyebilirim bizim cursor adapter hikaye. mesela foreign key olayı linq ile harika birşey haline geliyor. onları otomatik kullanıyor. birçok şeyi senden alıyor.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

**ugurlu2001** · 08.02.2010 16:34:57

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Re: Cursor Adapter Hk.

Örnekler ve açıklamalar için teşekkür ediyorum.

Galiba Cursor Adapter öyle bir çırpıda yutulup yenilicek bir konu değil. Biraz çalışıp takıldığım yerleri sormak daha mantıklı gibi görünüyor.

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü

**metin** · 08.02.2010 16:37:06

metin
Uzman Üye
Offline

Yer: istanbul
Kayıt Tarihi: 16.10.2006
İleti: 1,460

Re: Cursor Adapter Hk.

Soykan,
bir iki eleştiri:
myguid alanının tipini "uniqueidentifier" olarak tanıtsaydın daha az yer kaplardı.
ayrıca bu alanı primary key yapman gereksiz. çünkü zaten eşsiz oluyor. ben olsam sipno yu primary key yapardım. Ha bir de sipno yu ben şahsen int değil karakter yapardım. mesela A000000001 diye bir sipariş no da vermek isteyebilir kullanıcı. ayrıca sipno'yu identity yapmazdım. çünkü kullanıcı atlamalar veya geriye dönmeler yapmak isteyebilir.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

**cetinbasoz** · 08.02.2010 16:42:57

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: Cursor Adapter Hk.

Olayi isin icine CA, SPT filan karistirmadan dusun. Begin Transaction .. end transaction ilk akla gelenler ama soyledigin islem daha cok triggerlara uyuyor. Bunu trigger olarak yazarsan aslinda tek yapman gereken tek dosyada update/insert. Trigger basarili olursa update/insert basarili olur olmazsa o da olmaz (her SQL server batch komutu kendi icinde atomik olarak transactional ayrica Begin Transaction da gereksiz).
Transaction kullanmak istersen (normalde transaction uygulaniyor ama update basian), CA'da UseTransactions propertysini .F. yapip kendin baslatip bitirebilirsin de. CA'nin bir avantaji da, UpdateCmd, InsertCmd ayri yazilabilir. Mesela UpdateCmd icindeki komut duz:
Update ...

yerine:

if ...
update ....
insert ....

gibi birsey de olabillir.

**ugurlu2001** · 08.02.2010 16:58:22

ugurlu2001
Uzman Üye
Offline

Yer: Istanbul
Kayıt Tarihi: 11.10.2006
İleti: 1,642

Re: Cursor Adapter Hk.

Üstat, sen açıklıyorsun ama böyle kısacık da açıklanmaz ki.

Visual Fox Pro

CA'da UseTransactions propertysini .F. yapip kendin baslatip bitirebilirsin de.

Açıklaması ile bam teline bastın

O zaman bir soru daha :
VFP tarafında Connection u açtıktan sonra aynı connection üzerinde 1 den fazla (2-3 yada dört .. ) Insert, Delete, Update işlemini bir tek TRansaction içerisinde yapabiliyoruz yani öylemi? Yani 1. işlemde Transaction u başlat, en sonuncuda bitir. Data bütünlüğü %100 garanti?

Yoksa ben mi yanlış anladım...

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü

**soykanozcelik** · 08.02.2010 16:59:17

soykanozcelik
Uzman Üye
Offline

Yer: Tekirdağ
Kayıt Tarihi: 25.08.2006
İleti: 1,513

Re: Cursor Adapter Hk.

metin yazdı:

Soykan,
bir iki eleştiri:
myguid alanının tipini "uniqueidentifier" olarak tanıtsaydın daha az yer kaplardı.
ayrıca bu alanı primary key yapman gereksiz. çünkü zaten eşsiz oluyor. ben olsam sipno yu primary key yapardım. Ha bir de sipno yu ben şahsen int değil karakter yapardım. mesela A000000001 diye bir sipariş no da vermek isteyebilir kullanıcı. ayrıca sipno'yu identity yapmazdım. çünkü kullanıcı atlamalar veya geriye dönmeler yapmak isteyebilir.

cok fazla titiz dusunerek yapilmis bir ornek degil ancak MyGUID alanini VFP ve SQL de sadece mod degisikligi yaparak kullanabilmek icin oyle tutmak zorunda kaldim.

sipnolar konusunda aslinda o sipno degilde sipislemno olsa daha iyi olurdu siparis dedigin gibi char daha mantikli .
sipislemno identity yerine sequantil olabilecek sen ne onerirsin?

https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

**cetinbasoz** · 08.02.2010 17:02:38

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: Cursor Adapter Hk.

Soykan,
Olmazsa olmaz maddeleri 1 ve 2 benim verdiklerim ile ilgili degil sanirim. Bende oyle bir kisitlama yok, hatta tersi tesvik ediliyor:)

**cetinbasoz** · 08.02.2010 17:07:03

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: Cursor Adapter Hk.

metin yazdı:

yalnız linq'yu sadece ucundan inceledim ve şunu söyleyebilirim bizim cursor adapter hikaye. mesela foreign key olayı linq ile harika birşey haline geliyor. onları otomatik kullanıyor. birçok şeyi senden alıyor.

'Bizim cursoradapter hikaye' Ah Metin, bilsen ben VFP'de nelerin hikaye oldugunu dusunmeye basladim. Bir taraftan yillarca VFP sayesinde ekmek yedik, diger taraftan eger o olmasaymis gozum daha once acilabilirmis diye dusunuyorum bazen. Cok fazla 2D dusundurtmus beni:) Hainmiyim neyim.

**cetinbasoz** · 08.02.2010 17:15:11

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: Cursor Adapter Hk.

ugurlu2001 yazdı:

Üstat, sen açıklıyorsun ama böyle kısacık da açıklanmaz ki.
Visual Fox Pro
CA'da UseTransactions propertysini .F. yapip kendin baslatip bitirebilirsin de.
Açıklaması ile bam teline bastın
O zaman bir soru daha :
VFP tarafında Connection u açtıktan sonra aynı connection üzerinde 1 den fazla (2-3 yada dört .. ) Insert, Delete, Update işlemini bir tek TRansaction içerisinde yapabiliyoruz yani öylemi? Yani 1. işlemde Transaction u başlat, en sonuncuda bitir. Data bütünlüğü %100 garanti?
Yoksa ben mi yanlış anladım...

Kisaca evet. Ama CA ile SPT'yi de cok karistirma. SPT'de komutlar var. CA'nin connectionu uzerinde de komutlar olabilir. Baska bir benzetme sekli:

SPT ile aldigin cursor, CA cursor gibi dusun. CA arada kaynakla nasil haberlesecegini belirleyen adaptor sadece. Mesela sendeki kodlarin icerisinde SQLInsert.prg olacak. O sadece insert islemi icin. SPT'deki Insert ... komutunu ADO ile yapiyor.

**cetinbasoz** · 08.02.2010 17:20:09

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: Cursor Adapter Hk.

metin yazdı:

Soykan,
bir iki eleştiri:
myguid alanının tipini "uniqueidentifier" olarak tanıtsaydın daha az yer kaplardı.
ayrıca bu alanı primary key yapman gereksiz. çünkü zaten eşsiz oluyor. ben olsam sipno yu primary key yapardım. Ha bir de sipno yu ben şahsen int değil karakter yapardım. mesela A000000001 diye bir sipariş no da vermek isteyebilir kullanıcı. ayrıca sipno'yu identity yapmazdım. çünkü kullanıcı atlamalar veya geriye dönmeler yapmak isteyebilir.

Metin,
UniqueIdentifier olmasi, primary key'i gereksiz kilmiyor. UniqueIdentifier sadece data tipi, yaratildiktan sonra ayni kolonda essiz olmasinin garantisi yok (eger primary key, unique gibi bir constraint kullanmazsan). Mesela 'child' tablolarda foreign key olarak kullanilan kolon da uniqueidentifier.

Ben myGUID'i uniqueIdentiifer ve Primary key yapardim:) Kullanicinin girebilecegi degerlerin PK olmasina karsiyim. SipNo gibi degerler clustered index ve Unique olabilir ama Primary Key olmasina serh koyuyorum:)

**soykanozcelik** · 08.02.2010 17:25:14

soykanozcelik
Uzman Üye
Offline

Yer: Tekirdağ
Kayıt Tarihi: 25.08.2006
İleti: 1,513

Re: Cursor Adapter Hk.

cetinbasoz yazdı:

Soykan,
Olmazsa olmaz maddeleri 1 ve 2 benim verdiklerim ile ilgili degil sanirim. Bende oyle bir kisitlama yok, hatta tersi tesvik ediliyor:)

sonucta class larin basarili olarak calisabilmesi icin tablolarin DE de olmasi gerekmiyormu ? ayrica tablo ve field adlari ayni olmak zorunda degilmi VFP ve SQL tarafında?

1 ve 2 de bunlari anlatmaya calistim tersi olabiliyorsa bu arada öğrenmis olurum

https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

**cetinbasoz** · 08.02.2010 17:35:23

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: Cursor Adapter Hk.

Gerekmiyor.

with SQLOpenTable('Customer')
...
endwith

SQLInsert( ... )

SQLNonQuery( ... )

with SQLQuery( m.lcSQL )
...
endwith

2) Iki tarafta da olmak zorunda degil demek istedigim. Belki sadece SQL server bazli bir projedir:)

**cetinbasoz** · 08.02.2010 17:37:32

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: Cursor Adapter Hk.

Jenerik ornek:

Visual Fox Pro

Local loCursor, lcConStr

*!*    lcConStr = 'Driver={SQL Native Client};Trusted_connection=Yes;Server=.'

*!*    loCursor = Newobject('CaGeneric','cageneric.prg','','ODBC',m.lcConStr)

 

lcConStr = 'Provider=SQLNCLI;Trusted_connection=Yes;Server=.\SQLExpress'

loCursor = Newobject('CaGeneric','','','ADO',m.lcConStr)

 

With loCursor

  .Alias          = 'myTable'

  TEXT TO .SelectCmd  noshow

SELECT * FROM NorthWind..Customers cus WHERE country = ?m.Country

  ENDTEXT

ENDWITH

 

Country = 'USA'

If loCursor.QueryFill()

  Select (loCursor.Alias)

 

  loCursor.MakeUpdatable('NorthWind..Customers','customerId')

  Browse Last

  Tableupdate(2,.T.,loCursor.Alias)

Endif

 

 

Country = 'UK'

If loCursor.QueryFill()

  Select (loCursor.Alias)

 

  loCursor.MakeUpdatable('NorthWind..Customers','customerId')

  Browse Last

  Tableupdate(2,.T.,loCursor.Alias)

Endif

 

 

Define Class CaGeneric As CursorAdapter

  CompareMemo = .F.

  FetchAsNeeded = .T.

  FetchSize = 100

  FetchMemo = .T.

  BatchUpdateCount = 100

  WhereType = 1

  AllowSimultaneousFetch = .T.

  MapVarchar = .T.

  MapBinary = .T.

  BufferModeOverride = 5

  *!*      *  Nodata = .T.

  Handle = 0

 

  Procedure AutoOpen

    If Not Pemstatus(This, '__VFPSetup', 5)

      This.AddProperty('__VFPSetup', 1)

      This.Init()

    Endif

  Endproc

 

  Procedure Init(tcType,tcConnectionString)

    Local llReturn

    Do Case

      Case Not Pemstatus(This, '__VFPSetup', 5)

        This.AddProperty('__VFPSetup', 0)

      Case This.__VFPSetup = 1

        This.__VFPSetup = 2

      Case This.__VFPSetup = 2

        This.__VFPSetup = 0

        Return

    Endcase

    Set Multilocks On

    llReturn = DoDefault()

 

    This.DataSourceType = m.tcType

 

    Store This.DataSourceType To ;

      this.InsertCmdDataSourceType, ;

      this.UpdateCmdDataSourceType, ;

      this.DeleteCmdDataSourceType

 

    ***<DataSource>

    Do Case

      Case Upper(This.DataSourceType) == "ODBC"

        This.Handle = Sqlstringconnect(m.tcConnectionString)

 

        Store This.Handle To ;

          This.Datasource,;

          This.InsertCmdDataSource,;

          This.UpdateCmdDataSource,;

          This.DeleteCmdDataSource

 

      Case Upper(This.DataSourceType) == "ADO"

        Local loConnDataSource

        loConnDataSource = Createobject('ADODB.Connection')

        ***<DataSource>

        loConnDataSource.ConnectionString = m.tcConnectionString

        ***</DataSource>

        loConnDataSource.Open()

        This.Datasource = Createobject('ADODB.RecordSet')

        This.Datasource.CursorLocation   = 3  && adUseClient

        This.Datasource.LockType         = 3  && adLockOptimistic

        This.Datasource.ActiveConnection = loConnDataSource

        *** End of Select connection code: DO NOT REMOVE

 

        loCommand = Createobject('ADODB.Command')

        loCommand.ActiveConnection = loConnDataSource

        This.AddProperty('oCommand',loCommand)

        This.UpdateCmdDataSource=loCommand

        This.InsertCmdDataSource=loCommand

        This.DeleteCmdDataSource=loCommand

 

      Case Upper(This.DataSourceType)="NATIVE" && Not implemented

      Case Upper(This.DataSourceType)="XML"  && Not implemented

    Endcase

    ***</DataSource>

 

    If This.__VFPSetup = 1

      This.__VFPSetup = 2

    Endif

    Return llReturn

  Endproc

 

  Procedure MakeUpdatable(tcTableName,tckeyField,tlDoNotIncludeKey)

    This.Tables = m.tcTableName

    This.KeyFieldList = m.tckeyField

    Local ix, lnUpdateableFCount

    lnUpdateableFCount = Fcount(This.Alias)-Iif(This.DataSourceType='ADO',1,0) && last one is ADOBOOKMARK

    For ix = 1 To m.lnUpdateableFCount

      If !m.tlDoNotIncludeKey Or !(Upper(Field(m.ix,This.Alias,0)) == Upper(m.tckeyField))

        This.UpdatableFieldList = This.UpdatableFieldList + ;

          IIF(Empty(This.UpdatableFieldList),'',',') + ;

          FIELD(m.ix,This.Alias,0)

      Endif

      This.UpdateNameList = This.UpdateNameList + ;

        IIF(Empty(This.UpdateNameList),'',',') + ;

        TEXTMERGE('<<FIELD(m.ix,this.Alias,0)>> <<m.tcTableName>>.<<FIELD(m.ix,this.Alias,0)>>')

    Endfor

  Endproc

 

  Procedure QueryFill()

    Local llSuccess

    If This.DataSourceType ="ADO"

      llSuccess = This.CursorFill(.F.,.F.,0,This.oCommand)

    Else

      llSuccess = This.CursorFill(.F.)

    Endif

    If !m.llSuccess

        If This.DataSourceType ="ADO"

            lcMessage = This.oCommand.CommandText + CHR(13) + This.GetErrorExplanation()

        ELSE

            lcMessage = This.GetErrorExplanation()

        endif    

      Messagebox(m.lcMessage)

    Endif

    Return m.llSuccess

  Endproc

 

  Procedure GetErrorExplanation

    Local lcError,ix

    Local Array aWhy[1]

    Aerror(aWhy)

    lcError = ""

    For ix = 1 To 7

      lcError = m.lcError + Transform(aWhy[m.ix]) + Chr(13)

    Endfor

    Return m.lcError

  Endproc

Enddefine

**soykanozcelik** · 08.02.2010 17:50:45

soykanozcelik
Uzman Üye
Offline

Yer: Tekirdağ
Kayıt Tarihi: 25.08.2006
İleti: 1,513

Re: Cursor Adapter Hk.

2- icin sadece SQL tarafli olacaksa evet dogru

1-
SQLInsert( ... )

SQLNonQuery( ... )

with SQLQuery( m.lcSQL )
...
endwith

bunları biliyorum uygulamanin herhangi bir yerinde kullanabiliyoruz

with SQLOpenTable(addbs(m.mypath)+'Customer')
...
endwith

i form load da kullanmamiz DE de kullandigimizla ayni sonuca goturuyorsa bizi okey ama bu yine bana sadece SQL tarafli oldugu zaman icin cozum gibi geldi yoksa yanlis mi anladim.

https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

**cetinbasoz** · 08.02.2010 18:14:17

cetinbasoz
Uzman Üye
Offline

Kayıt Tarihi: 07.10.2006
İleti: 3,162

Re: Cursor Adapter Hk.

Yanlis anlamissin. SQLOpenTable()'da path yok.

**metin** · 08.02.2010 18:21:17

metin
Uzman Üye
Offline

Yer: istanbul
Kayıt Tarihi: 16.10.2006
İleti: 1,460

Re: Cursor Adapter Hk.

cetinbasoz yazdı:

Metin,
UniqueIdentifier olmasi, primary key'i gereksiz kilmiyor. ...

her seferinde newid ile değer aldığında aynı değerin tekrar oluşmasının imkansız farzedildiğini sen söylemiştin. ben ordan yola çıkarak gereksiz dedim.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

**metin** · 08.02.2010 18:33:00

metin
Uzman Üye
Offline

Yer: istanbul
Kayıt Tarihi: 16.10.2006
İleti: 1,460

Re: Cursor Adapter Hk.

soykanozcelik yazdı:

...
sipnolar konusunda aslinda o sipno degilde sipislemno olsa daha iyi olurdu siparis dedigin gibi char daha mantikli .
sipislemno identity yerine sequantil olabilecek sen ne onerirsin?

ben o tür bir alanı primary key veya unique yaparım. karakteri alıp nümeriğe çevirip bir arttırıp tekrar karaktere çeviriyorum. başında harfler varsa o harfleri bozmadan tabii. kaydı eklemeye çalışıyorum. eğer ekleyemezsem demek ki başkası benden önce davranmış. bir daha arttırıyorum.

Haksızlıklar karşısında susanlar, dilsiz şeytanlardır!
www.metinemre.com

**soykanozcelik** · 08.02.2010 18:40:59

soykanozcelik
Uzman Üye
Offline

Yer: Tekirdağ
Kayıt Tarihi: 25.08.2006
İleti: 1,513

Re: Cursor Adapter Hk.

ozaman SQL tarafli oluyor bu cozum ben vfp+sql olarakta kullanilabilmesi icin olmazsa olmazlar listesine dahil etmistim

https://www.twitter.com/soykanozcelik https://www.t.me/soykanozcelik https://soykanozcelik.wordpress.com

Cursor Adapter Hk. (Sayfa 1 / 2)

İleti [ 1. ile 25. arası, 26 kayıt içinden]

1 Konuyu açan ugurlu2001 07.02.2010 22:19:37

Konu: Cursor Adapter Hk.

2 Cevaplayan cetinbasoz 08.02.2010 03:16:43

Re: Cursor Adapter Hk.

3 Cevaplayan mrduyar 08.02.2010 09:11:07

Re: Cursor Adapter Hk.

4 Cevaplayan ugurlu2001 08.02.2010 15:45:00

Re: Cursor Adapter Hk.

5 Cevaplayan ugurlu2001 08.02.2010 15:56:15 Son düzenleyen, ugurlu2001 (08.02.2010 15:57:59)

Re: Cursor Adapter Hk.

6 Cevaplayan soykanozcelik 08.02.2010 16:22:33

Re: Cursor Adapter Hk.

7 Cevaplayan metin 08.02.2010 16:26:05 Son düzenleyen, metin (08.02.2010 16:32:07)

Re: Cursor Adapter Hk.

8 Cevaplayan metin 08.02.2010 16:28:25

Re: Cursor Adapter Hk.

9 Cevaplayan ugurlu2001 08.02.2010 16:34:57

Re: Cursor Adapter Hk.

10 Cevaplayan metin 08.02.2010 16:37:06 Son düzenleyen, metin (08.02.2010 16:37:54)

Re: Cursor Adapter Hk.

11 Cevaplayan cetinbasoz 08.02.2010 16:42:57

Re: Cursor Adapter Hk.

12 Cevaplayan ugurlu2001 08.02.2010 16:58:22

Re: Cursor Adapter Hk.

13 Cevaplayan soykanozcelik 08.02.2010 16:59:17

Re: Cursor Adapter Hk.

14 Cevaplayan cetinbasoz 08.02.2010 17:02:38

Re: Cursor Adapter Hk.

15 Cevaplayan cetinbasoz 08.02.2010 17:07:03

Re: Cursor Adapter Hk.

16 Cevaplayan cetinbasoz 08.02.2010 17:15:11

Re: Cursor Adapter Hk.

17 Cevaplayan cetinbasoz 08.02.2010 17:20:09 Son düzenleyen, cetinbasoz (08.02.2010 17:22:30)

Re: Cursor Adapter Hk.

18 Cevaplayan soykanozcelik 08.02.2010 17:25:14

Re: Cursor Adapter Hk.

19 Cevaplayan cetinbasoz 08.02.2010 17:35:23

Re: Cursor Adapter Hk.

20 Cevaplayan cetinbasoz 08.02.2010 17:37:32 Son düzenleyen, cetinbasoz (08.02.2010 17:38:10)

Re: Cursor Adapter Hk.

21 Cevaplayan soykanozcelik 08.02.2010 17:50:45

Re: Cursor Adapter Hk.

22 Cevaplayan cetinbasoz 08.02.2010 18:14:17

Re: Cursor Adapter Hk.

23 Cevaplayan metin 08.02.2010 18:21:17

Re: Cursor Adapter Hk.

24 Cevaplayan metin 08.02.2010 18:33:00

Re: Cursor Adapter Hk.

25 Cevaplayan soykanozcelik 08.02.2010 18:40:59

Re: Cursor Adapter Hk.

İleti [ 1. ile 25. arası, 26 kayıt içinden]