Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 05-01-2017, 12:38   #1
ozdogan
 
Giriş: 01/03/2006
Şehir: Kayseri-Çankırı
Mesaj: 98
Excel Vers. ve Dili:
...::Meleğim::...
Varsayılan mysql dn ver çekmek (sitedemdeki veritabanı)

Merhaba
Bir eticaret sitem var. mysql veritabı var. bu sitemin veritabanından siparişler tablosunu excele çekebilirmiyim acaba?
Bu kondua yardımcı olursanız sevinirim
Saygılarımla
ozdogan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-01-2017, 20:16   #2
Mehmet Şahin
Destek Ekibi
 
Mehmet Şahin kullanıcısının avatarı
 
Giriş: 13/10/2005
Şehir: Bursa * Rize
Mesaj: 1,307
Excel Vers. ve Dili:
Excel 2010 - 2013 Türkçe - İngilizce
Varsayılan

Merhaba,
bildiğim kadarı ile hosting şirketleri
panel dışında veritabanına erişime izin vermiyorlar.
__________________
Mutluluk paylaşıldığında gerçektir.

Into the Wild
Mehmet Şahin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-01-2017, 08:37   #3
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,861
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

Öncelikle Mehmet Bey'in dediği gibi eğer ulaşabiliyorsanız panelden veritabanı ve kullanıcı yönetiminden
sizin IP adresinize yetki vermeniz ya da hizmet aldığınız yerden sizin IP'niz için yetki vermelerini istemeniz gerekiyor.

Sonrasında https://dev.mysql.com/downloads/conn...odbc/3.51.html adresinden işletim sisteminize göre (32bit/64bit) ilgili Connector'ı yükleyin.

En sonunda da aşağıda kodları kullanabilirsiniz. Kırmızı renk ile belirttiğim yerlere sitenize ait bilgileri gireceksiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Emre()
    Set rs = CreateObject("Adodb.Recordset")
    Set con = CreateObject("Adodb.Connection")
    Server_Name = "Buraya Server IP ya da Web Site Adı"
    Database_Name = "Buraya Veritabanı Adı"
    User_ID = "Buraya Kullanıcı Adı"
    Password = "Buraya Parola"
    port = "3306"
    con.Open = "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & _
                    ";Port=" & port & _
                    ";Database=" & Database_Name & _
                    ";User=" & User_ID & _
                    ";Password=" & Password & _
                    ";Option=4;"
    MsgBox "bağlandı"
    sorgu = "Select * from tabloadı"
    rs.Open sorgu, con, 1, 3
    Range("A2").CopyFromRecordset rs
    rs.Close: con.Close
End Sub
__________________
Excel'e dair her şey; excelarsivi.com 'da..
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-02-2017, 15:03   #4
hlojan
Altın Üye
 
hlojan kullanıcısının avatarı
 
Giriş: 15/05/2015
Şehir: ESKİŞEHİR
Mesaj: 351
Excel Vers. ve Dili:
Microsoft Office 2007
Varsayılan

Osman Bey Merhaba ;

ilk olarak paylaştığınız kodu arıyordum . Direk çalıştır teşekkürler

Mysql veri ekleme yapabildim. Çalışıyor

Bir iki sorum olacak size


Birincisi veri eklerken türkçe karakter sorunu yaşıyorum. Hem latin 5 denedim hem utf 8 . myphpadmin den listeyi gözatıyorum . türkçe karakter sorunu var.

Bu konuda yardımınızı bekliyorum
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
' KAYIT EKLEME*******************

    Set rs = CreateObject("Adodb.Recordset")
    Set con = CreateObject("Adodb.Connection")
    Server_Name = "www.******.com.tr"
    Database_Name = "*****"
    User_ID = "*****"
    Password = "*****"
    port = "3306"
    con.Open = "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & _
                    ";Port=" & port & _
                    ";Database=" & Database_Name & _
                    ";User=" & User_ID & _
                    ";Password=" & Password & _
                    ";Option=4;"
   
    sorgu = "Select * from firma"
    rs.Open sorgu, con, 1, 3
    rs.Addnew


rs("kod").Value = Range("kod").Value
rs("fadi").Value = Range("fadi").Value
rs("fadres").Value = Range("fadres").Value
rs("sadi").Value = Range("sadi").Value
rs("sadres").Value = Range("sadres").Value
rs("vergino").Value = Range("vergino").Value
rs("vergida").Value = Range("vergida").Value
rs("telefon").Value = Range("telefon").Value
rs("fax").Value = Range("fax").Value
rs("email").Value = Range("email").Value
rs("kisi").Value = Range("kisi").Value

rs.Update
    
    rs.Close: con.Close
İkincisi veri sorgulamada sorun yaşıyorum. Sorgu yöntemimde hata var.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton3_Click()
' KAYIT EKLEME*******************

    Set rs = CreateObject("Adodb.Recordset")
    Set con = CreateObject("Adodb.Connection")
    Server_Name = "****"
    Database_Name = "***"
    User_ID = "***"
    Password = "***"
    port = "3306"
    con.Open = "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & _
                    ";Port=" & port & _
                    ";Database=" & Database_Name & _
                    ";User=" & User_ID & _
                    ";Password=" & Password & _
                    ";Option=4;"
   
   
    sorgu = "Select * from firma where kod='Range("kod").Value '"
    rs.Open sorgu, con, 1, 3
   
If rs.RecordCount > 0 Then
 On Error Resume Next
  Range("kod").Value = ""
 Range("fadi").Value = ""
Range("fadres").Value = ""
  Range("sadi").Value = ""
Range("sadres").Value = ""
 Range("vergino").Value = ""
 Range("vergida").Value = ""
 Range("telefon").Value = ""
Range("fax").Value = ""
  Range("email").Value = ""
Range("kisi").Value = ""
 Range("kod").Value = rs("kod").Value
 Range("fadi").Value = rs("fadi").Value
Range("fadres").Value = rs("fadres").Value
  Range("sadi").Value = rs("sadi").Value
Range("sadres").Value = rs("sadres").Value
 Range("vergino").Value = rs("vergino").Value
 Range("vergida").Value = rs("vergida").Value
 Range("telefon").Value = rs("telefon").Value
Range("fax").Value = rs("fax").Value
  Range("email").Value = rs("email").Value
Range("kisi").Value = rs("kisi").Value

Else
MsgBox "CİHAZ KAYITLI DEĞİL ! LÜTFEN BİLGİLERİ ELLE DOLDURUN VE KAYIT EDİN"
End If
    
    rs.Close: con.Close
End Sub
Konu hakkında yardımlarınızı bekliyorum. İyi Çalışmalar
__________________
Excel : Beginner

Bilgisayar Çözümleri : Expert

Teknolojik Destek : Exper


“ Bilmediğini bilmek en iyisidir. Bilmeyip de
bildiğini sanmak tehlikeli bir hastalıktır.”

Lao-Tzu
hlojan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-02-2017, 11:39   #5
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,861
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

Merhaba Sn. hlojan,

Öncelikle adım Murat.

Sitenizin alt yapısı nedir?
WordPress?
OpenChart?
vs.
__________________
Excel'e dair her şey; excelarsivi.com 'da..
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-02-2017, 13:29   #6
hlojan
Altın Üye
 
hlojan kullanıcısının avatarı
 
Giriş: 15/05/2015
Şehir: ESKİŞEHİR
Mesaj: 351
Excel Vers. ve Dili:
Microsoft Office 2007
Varsayılan

Murat bey

www.metrolojistik.com.tr
siteyi kendim düzenledim
phpadmin den veri türü charset latin5 ve utf 8 denedim ama olmadı
__________________
Excel : Beginner

Bilgisayar Çözümleri : Expert

Teknolojik Destek : Exper


“ Bilmediğini bilmek en iyisidir. Bilmeyip de
bildiğini sanmak tehlikeli bir hastalıktır.”

Lao-Tzu
hlojan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-02-2017, 13:53   #7
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,861
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

Anladım.

WordPress veya OpenChart olsaydı daha net yardımcı olabilirdim.

Ben ayarlar için bu kodları kullanıyorum.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<?php
header("Content-Type: text/html; charset=utf-8");  
$host = "localhost";
$dbadi = "vtadi"; // Veritabanı ismi
$dbkadi="kul.adi"; // Veritabanı kullanıcı adı
$dbsifre = "vtparola"; // Veritabanı şifresi

$baglanti = @mysql_connect($host,$dbkadi,$dbsifre) or die ("Veritabanı bağlantısı yapılamadı.");
mysql_select_db($dbadi,$baglanti) or die ("Veritabanı seçilemedi.");

mysql_query("SET NAMES 'UTF8'");
mysql_query("SET character_set_connection = 'UTF8'");
mysql_query("SET character_set_client = 'UTF8'");
mysql_query("SET character_set_results = 'UTF8'");

?>
Normalde yeterli oluyor ama yine de Türkçe karakterleri değiştirip veritabanına yüklerken tekrar dönüştürme işlemini de gerçekleştiriyorum.

Bu kodlarla sayfadaki Türkçe karakterleri değiştiriyorum.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Degistir()
    Cells.Replace What:="ç", Replacement:="(/*1)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="Ç", Replacement:="(/*2)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="ğ", Replacement:="(/*3)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="Ğ", Replacement:="(/*4)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False ', LookAt:=XlPart
    Cells.Replace What:="ü", Replacement:="(/*5)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False ', LookAt:=XlPart
    Cells.Replace What:="Ü", Replacement:="(/*6)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False ', LookAt:=XlPart
    Cells.Replace What:="ş", Replacement:="(/*7)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False ', LookAt:=XlPart
    Cells.Replace What:="Ş", Replacement:="(/*8)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False ', LookAt:=XlPart
    Cells.Replace What:="ö", Replacement:="(/*11)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False ', LookAt:=XlPart
    Cells.Replace What:="Ö", Replacement:="(/*12)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False ', LookAt:=XlPart
    Cells.Replace What:="é", Replacement:="(/*13)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False ', LookAt:=XlPart
    Cells.Replace What:="İ", Replacement:="(/*14)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
        Cells.Replace What:="ı", Replacement:="(/*10)", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False ', LookAt:=XlPart
End Sub

Bu Php fonksiyonu ile de tekrar Türkçe'ye çeviriyorum.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
/*
ç => (/*1)
Ç => (/*2)
ğ => (/*3)
Ğ => (/*4)
ü => (/*5)
Ü => (/*6)
ş => (/*7)
Ş => (/*8)
İ => (/*9)
ı => (/*10)
ö => (/*11)
Ö => (/*12)
é => (/*13)
İ => (/*14)
*/
function v_($veri){
$veri = str_replace("(/*1)","ç",$veri);
$veri = str_replace("(/*2)","Ç",$veri);
$veri = str_replace("(/*3)","ğ",$veri);
$veri = str_replace("(/*4)","Ğ",$veri);
$veri = str_replace("(/*5)","ü",$veri);
$veri = str_replace("(/*6)","Ü",$veri);
$veri = str_replace("(/*7)","ş",$veri);
$veri = str_replace("(/*8)","Ş",$veri);
$veri = str_replace("(/*9)","İ",$veri);
$veri = str_replace("(/*10)","ı",$veri);
$veri = str_replace("(/*11)","ö",$veri);
$veri = str_replace("(/*12)","Ö",$veri);
$veri = str_replace("(/*13)","é",$veri);
$veri = str_replace("(/*14)","İ",$veri);
$veri = str_replace("(noktalıvirgul)",";",$veri);
return $veri;
}
Bu arada, sitenizdeki Teklif menüsünde Kariyer yazıyor.
__________________
Excel'e dair her şey; excelarsivi.com 'da..
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-02-2017, 14:08   #8
hlojan
Altın Üye
 
hlojan kullanıcısının avatarı
 
Giriş: 15/05/2015
Şehir: ESKİŞEHİR
Mesaj: 351
Excel Vers. ve Dili:
Microsoft Office 2007
Varsayılan

Anladım.
Basit bir yöntemi yok. Ben sitemden bağımsız mysql tablosunu excelde kullanmak istiyiyorum

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=dbtest; User=user1;Password=mysql;Option=3;CharSet=utf8;
Dün gece 2 3 saat araştırdım bu kodu buldum ama charset ekleniyormuş ama sizin koda uyarlayamadım

Sub Değiştir kodlarını deneyeceğim.

Bu arada Php de baya amatörüm. Kodları çözüyorum ve büyük zevk alıyorum. Kariyer teklif farkını farkındayım. İnaşşlah öğrendikce toparlıcam siteyi

https://www.connectionstrings.com/my...tor-odbc-3-51/

Bu siteden baya denedim ama sizin koda otutturamadım option mantığı 4 sizde bendeki 3
kafam karıştı

birde : ; " ' gibi ayraçları tutturamıyorum



İlginiz için teşekkür ederim
__________________
Excel : Beginner

Bilgisayar Çözümleri : Expert

Teknolojik Destek : Exper


“ Bilmediğini bilmek en iyisidir. Bilmeyip de
bildiğini sanmak tehlikeli bir hastalıktır.”

Lao-Tzu
hlojan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-02-2017, 14:31   #9
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,861
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

Php versiyonuna göre değişiyor diye biliyorum.
Benim de pek bir bilgim yok ancak deneme yanılma araştırma üzerine bir şeyler karalıyorum.

Bağlantı metnine CharSetibu şekilde ekleyebilirsiniz;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
    con.Open = "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & _
                    ";Port=" & port & _
                    ";Database=" & Database_Name & _
                    ";User=" & User_ID & _
                    ";Password=" & Password & _
                    ";Option=4;" & _
                    ";CharSet=utf8;"
Sizin yerinizde olsam; bu konu ile alâkalı PHP desteği veren bir yerde çözüm arardım.
__________________
Excel'e dair her şey; excelarsivi.com 'da..
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-02-2017, 14:38   #10
hlojan
Altın Üye
 
hlojan kullanıcısının avatarı
 
Giriş: 15/05/2015
Şehir: ESKİŞEHİR
Mesaj: 351
Excel Vers. ve Dili:
Microsoft Office 2007
Varsayılan

excel olunca ve vba kodları kullanınca burdan çözüm arıyorum

Malesef olmadı

https://yadi.sk/i/qGYA7M9x3Cez5t

Ben araştırmaya devam edeyim
__________________
Excel : Beginner

Bilgisayar Çözümleri : Expert

Teknolojik Destek : Exper


“ Bilmediğini bilmek en iyisidir. Bilmeyip de
bildiğini sanmak tehlikeli bir hastalıktır.”

Lao-Tzu
hlojan Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 02:22


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden