نمایش نتایج 1 تا 8 از 8

نام تاپیک: آیا امکان import اتوماتیک همزمان نام فیلد discretion وcaption به اکسس وجود دارد؟

  1. #1
    کاربر دائمی آواتار narpco
    تاریخ عضویت
    فروردین 1397
    محل زندگی
    کرج
    پست
    207

    Lightbulb آیا امکان import اتوماتیک همزمان نام فیلد discretion وcaption به اکسس وجود دارد؟

    سلام بر دوستان
    همانطور که میدانید یکی از وقت گیر ترین کارهای برنامه نویسی تولید جداول هست
    نام فیلد - توضیحات discretion - و نام فارسی فیلد caption جهت اینکه وقتی فرم میسازیم لیبل تکست باکس ها فارسی باشه
    فرض کنید در یک فایل اکسل جدول رو ساختیم و آماده انتقال به داخل اکسس هست
    نام فیلد - توضیحات discretion - و نام فارسی فیلد caption در فایل اکسل ما موجود است
    و همه میدونیم که مراحل وارد کردن به چه صورت هست

    حالا سئوال:
    آیا امکان این هست که با حالتی خاص یا کد نویسی یا هر روش دیگری که به نظر شما میرسد کاری کنیم که وقتی فایل اکسل به داخل اکسس ایمپورت میشود همزمان // توضیحات discretion - و نام فارسی فیلد caption//// نیر به جدول اضافه شود ؟

    یا هر روش دیگه ای که به نظرتون میاد

    هدف اینکه یک بار تو اکسل (یا هر محیط دیگه ای که به نظر شما میرسه ) نوشتیم همون ایمپورت بشه دیگه دوباره کاری نکنیم
    یا برنامه موقتی بنویسیم که این کار و انجام بده ...

    با سپاس


    http://s14.picofile.com/file/8408950...rrrrrrrrrr.png
    آخرین ویرایش به وسیله narpco : سه شنبه 01 مهر 1399 در 10:05 صبح


  2. #2
    کاربر دائمی آواتار narpco
    تاریخ عضویت
    فروردین 1397
    محل زندگی
    کرج
    پست
    207

    نقل قول: آیا امکان import اتوماتیک همزمان نام فیلد discretion وcaption به اکسس وجود دارد؟

    و یا اینکه یک برنامه واسطه اینکار رو انجام بده میخوام بدونم دوستان تا حالا به همچین چیزی برخورد کردن و ایا شدنی هست ؟

  3. #3
    کاربر دائمی آواتار padide55
    تاریخ عضویت
    مرداد 1391
    محل زندگی
    زاهدان
    پست
    313

    نقل قول: آیا امکان import اتوماتیک همزمان نام فیلد discretion وcaption به اکسس وجود دارد؟

    نقل قول نوشته شده توسط narpco مشاهده تاپیک
    و یا اینکه یک برنامه واسطه اینکار رو انجام بده میخوام بدونم دوستان تا حالا به همچین چیزی برخورد کردن و ایا شدنی هست ؟
    سلام . من این مشکل رو به این صورت حل میکنم .
    اول ایمپورت اکسل انجام میدم به اکسس ولی از اون اکسل استفاده نمیکنم .
    اکسل وارد شده به اکسس رو بدون در نظرگرفتن نام فیلد و فقط به صورت پیش فرض لود میکنم .در این صورت اسم فیلدها F1,F2,F3 ,... در میاد.
    یه جدول درست میکنم در اکسس با تمام مشخصات و اسامی فیلدها و کپشنهایی که از اکسل مد نظر بوده .
    نهایتا الان یه جدول اکسل داریم که با یک کوئری اطلاعاتش رو به تیبل اکسس Append میکنم و با اون کار میکنم .
    هر موقع فایل اکسل داده هاش عوض بشه میتونم با اجرای کوئری اون اطلاعات رو به تیبل خودم در اکسس اضافه کنم .

  4. #4
    کاربر دائمی آواتار narpco
    تاریخ عضویت
    فروردین 1397
    محل زندگی
    کرج
    پست
    207

    نقل قول: آیا امکان import اتوماتیک همزمان نام فیلد discretion وcaption به اکسس وجود دارد؟

    سلام دوست گرامی

    ممنون از پاسخ شما اگر درست متوجه شده باشم شما میفرمایید یک فایل اکسل داریم و باید یک جدول اکسس هم با نام فیلد انگلیسی و کپشن ها معادل همون فایل اکسل بسازیم
    بعد اطلاعات داخل جدول اکسل رو با append وارد جدول اکسس کنیم ....درست فهمیدم ؟!


    سئوال بنده اصلا در مورد اطلاعات نیست و چگونگی انتقال رکوردهای داخل جدول اکسل به اکسس

    دقیقا همه چیز به بحث ساخت اولیه جدول برمیگرده

    فرض کنید در اکسل ما یک جدول میسازیم یک ستون نام انگلیسی فیلد ها یک ستون نام فارسی آن ها که میخواهیم بعنوان نام فارسی تکست باکس ها در فرم نمایش داده بشه

    سئوال اینه که ..روشی هست که طوری این فایل اسکل رو ایمپورت کنیم که جدولی ساخته باشه با نام انگلیسی که در اکسل ساختیم .....(که تا این مرحله رو همه بلدیم ) بعد نام های فارسی که ساختیم بره بشینه در قسمت کپشن هر فیلد در پایین محیط دیزاین جدول

    لطفا عکس رو ببنید تو لینک زیر میخواهیم این دوآیتم باهم همزمان وارد جدول بشن هی دوباره تایپ نکنیم --fild name و caption باهم وارد بشن ..از مبدا فایل اکسلی که قبلا ساختیم .....یا هر محیط دیگه ای ...من فقط دارم هرچی به ذهنم میاد مینویسم

    خیلی خودم اطلاع ندارم که اصلا شدنی هست یانه ...

    http://s14.picofile.com/file/8408950...rrrrrrrrrr.png

    ممنونم
    آخرین ویرایش به وسیله narpco : سه شنبه 01 مهر 1399 در 10:08 صبح

  5. #5
    کاربر دائمی آواتار narpco
    تاریخ عضویت
    فروردین 1397
    محل زندگی
    کرج
    پست
    207

    نقل قول: آیا امکان import اتوماتیک همزمان نام فیلد discretion وcaption به اکسس وجود دارد؟

    یک نمونه فایل اکسل پست می کنم شاید در توضیح بیشتر کمک کنه

    http://s15.picofile.com/file/8408951...port.xlsx.html

  6. #6
    کاربر دائمی آواتار padide55
    تاریخ عضویت
    مرداد 1391
    محل زندگی
    زاهدان
    پست
    313

    نقل قول: آیا امکان import اتوماتیک همزمان نام فیلد discretion وcaption به اکسس وجود دارد؟

    متوجه شدم . میخواهید در اکسل بگید چه جدولی میخواید . اکسس درستش کنه.

    کد نویسی ضعیف هستم . دوستان کمک کنند

  7. #7
    کاربر دائمی آواتار padide55
    تاریخ عضویت
    مرداد 1391
    محل زندگی
    زاهدان
    پست
    313

    نمونه کد ایجاد فیلد در اکسس با دستورVB

    نقل قول نوشته شده توسط padide55 مشاهده تاپیک
    متوجه شدم . میخواهید در اکسل بگید چه جدولی میخواید . اکسس درستش کنه.

    کد نویسی ضعیف هستم . دوستان کمک کنند
    نمونه کد ایجاد فیلد در اکسس
    این کدها رو براتون پیدا کردم
    ببینید بجای نام فیلد از مسیر مورد نظر فیلد ایجاد کنید یا نه.
    برای کپشن باید کدش رو پیدا کنم .


    برای اجرای دستورات DDL مربوط به SQL میتوان از کد نویسی VBA در برنامه Microsoft Access استفاده نمود.
    نام تابع
    شرح
    CreateTableDDL() ایجاد جدول
    CreateFieldDDL() ایجاد فیلد در جدول
    CreateFieldDDL2() ایجاد فیلد در جدول در دیتابیسی دیگر
    CreateViewDDL() ایجاد کوئری
    DropFieldDDL() حذف فیلد در جدول
    ModifyFieldDDL() ویرایش فیلد از نظر سایز ، نوع و . . .
    AdjustAutoNum() ویرایش فیلد اتونامبر
    DefaultZLS() ایجاد فیلد از نوع رشته با مقدار سایز پیشفرض صفر
    Option Compare Database
    Option Explicit
    Sub CreateTableDDL()
    'Purpose: Create two tables, their indexes and relation using DDL.
    Dim cmd As New ADODB.Command
    Dim strSql As String
    'Initialize
    cmd.ActiveConnection = CurrentProject.Connection
    'Create the Contractor table.
    strSql = "CREATE TABLE tblDdlContractor " & _
    "(ContractorID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _
    "Surname TEXT(30) WITH COMP NOT NULL, " & _
    "FirstName TEXT(20) WITH COMP, " & _
    "Inactive YESNO, " & _
    "HourlyFee CURRENCY DEFAULT 0, " & _
    "PenaltyRate DOUBLE, " & _
    "BirthDate DATE, " & _
    "EnteredOn DATE DEFAULT Now(), " & _
    "Notes MEMO, " & _
    "CONSTRAINT FullName UNIQUE (Surname, FirstName));"
    cmd.CommandText = strSql
    cmd.Execute
    Debug.Print "tblDdlContractor created."
    'Create the Booking table.
    strSql = "CREATE TABLE tblDdlBooking " & _
    "(BookingID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY, " & _
    "BookingDate DATE CONSTRAINT BookingDate UNIQUE, " & _
    "ContractorID LONG REFERENCES tblDdlContractor (ContractorID) " & _
    "ON DELETE SET NULL, " & _
    "BookingFee CURRENCY, " & _
    "BookingNote TEXT (255) WITH COMP NOT NULL);"
    cmd.CommandText = strSql
    cmd.Execute
    Debug.Print "tblDdlBooking created."
    End Sub
    Sub CreateFieldDDL()
    'Purpose: Illustrates how to add a field to a table using DDL.
    Dim strSql As String
    Dim db As DAO.Database
    Set db = CurrentDb()
    strSql = "ALTER TABLE MyTable ADD COLUMN MyNewTextField TEXT (5);"
    db.Execute strSql, dbFailOnError
    Set db = Nothing
    Debug.Print "MyNewTextField added to MyTable"
    End Sub
    Function CreateFieldDDL2()
    'Purpose: Add a field to a table in another database using DDL.
    Dim strSql As String
    Dim db As DAO.Database
    Set db = CurrentDb()
    strSql = "ALTER TABLE Table IN 'C:\Data\junk.mdb' ADD COLUMN MyNewField TEXT (5);"
    db.Execute strSql, dbFailOnError
    Set db = Nothing
    Debug.Print "MyNewField added"
    End Function
    Function CreateViewDDL()
    'Purpose: Create a new query using DDL.
    Dim strSql As String
    strSql = "CREATE VIEW qry1 as SELECT tblInvoice.* from tblInvoice;"
    CurrentProject.Connection.Execute strSql
    End Function
    Sub DropFieldDDL()
    'Purpose: Delete a field from a table using DDL.
    Dim strSql As String
    strSql = "ALTER TABLE [MyTable] DROP COLUMN [DeleteMe];"
    DBEngine(0)(0).Execute strSql, dbFailOnError
    End Sub
    Sub ModifyFieldDDL()
    'Purpose: Change the type or size of a field using DDL.
    Dim strSql As String
    strSql = "ALTER TABLE MyTable ALTER COLUMN MyText2Change TEXT(100);"
    DBEngine(0)(0).Execute strSql, dbFailOnError
    End Sub
    Function AdjustAutoNum()
    'Purpose: Set the Seed of an AutoNum using DDL.
    Dim strSql As String
    strSql = "ALTER TABLE MyTable ALTER COLUMN ID COUNTER (1000,1);"
    CurrentProject.Connection.Execute strSql
    End Function
    Function DefaultZLS()
    'Purpose: Create a field that defaults to a zero-length string using DDL.
    Dim strSql As String
    strSql = "ALTER TABLE MyTable ADD COLUMN MyZLSfield TEXT (100) DEFAULT """";"
    CurrentProject.Connection.Execute strSql
    End Function
    فایل های ضمیمه فایل های ضمیمه

  8. #8
    کاربر دائمی آواتار narpco
    تاریخ عضویت
    فروردین 1397
    محل زندگی
    کرج
    پست
    207

    نقل قول: آیا امکان import اتوماتیک همزمان نام فیلد discretion وcaption به اکسس وجود دارد؟

    نقل قول نوشته شده توسط padide55 مشاهده تاپیک
    متوجه شدم . میخواهید در اکسل بگید چه جدولی میخواید . اکسس درستش کنه.

    کد نویسی ضعیف هستم . دوستان کمک کنند



    افرین همینه .......منتها از قرار معلوم نباید توقع زیادی از اکسس داشته باشیم که صبح ها نون هم بره بگیره :))))چ


    دم شما گرم عزیز زحمت کشیدی

تاپیک های مشابه

  1. پاسخ: 3
    آخرین پست: سه شنبه 27 خرداد 1399, 00:27 صبح
  2. پاسخ: 2
    آخرین پست: دوشنبه 05 فروردین 1398, 11:26 صبح
  3. پاک شدن اتوماتیک اطلاعات اکسس
    نوشته شده توسط h2hiran در بخش Access
    پاسخ: 2
    آخرین پست: شنبه 28 آذر 1394, 21:17 عصر
  4. import اطلاعات جدول بصورا اتوماتیک از txt یا اکسل
    نوشته شده توسط kohyar در بخش Access
    پاسخ: 0
    آخرین پست: جمعه 17 آبان 1387, 01:54 صبح
  5. سوال: شمارنده اتوماتیک در یک فیلد اکسس
    نوشته شده توسط vsamsami در بخش Access
    پاسخ: 9
    آخرین پست: چهارشنبه 23 مرداد 1387, 00:55 صبح

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •