دیکشنری با استفاده از اکسس

[ntier]

سلام ؛

دوستان من یک دیکشنری access دارم که حدود 40 - 50 هزار رکورد توش هست. که البته مخصوص دیکشنری هم هست. توی این دو تا table وجود داره . یکی مخصوص لغات فارسی و دیگری مخصوص لغات انگلیسی هست.در هر کدام از این table ها هم دو ردیف وجود داره : لغت و شماره ی لغت .

حالا من می خوام این رو وصل کنم به کد asp که هر وقت لغتی مثلا انگلیسی وارد شد بره ردیف اون رو پیدا کنه و معنای اون رو توی table دیگری پیدا کنه.

آیا کسی می تونه من رو راهنمایی کنه که چجوری می توانم این کار رو انجام بدم؟ ​

 

[tabeez]

فکر کنم از اول گفته شه بهتره!

Dim conn As New ADODB.Connection
Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Addresse Banke Accesset"
conn.Open(str)
Dim Sql As String = "select Field1,Field2 From EsmeTableEnglish where FieldeKalamat='"+txtbox1.text+"'"
Dim cmd As New ADODB.Recordset
cmd.CursorLocation = ADODB.CursorLocationEnum.adUseServer
cmd.Open(Sql, conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)
dim num as long=cmd.fields("esme Fielde Shomare").value
cmd.close
sql = "select Field1,Field2 From EsmeTableFarsi where FieldiShomare='"+num+"'"
Dim cmd2 As New ADODB.Recordset
cmd.CursorLocation = ADODB.CursorLocationEnum.adUseServer
cmd.Open(Sql, conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)
Dim Farsi as string=cmd2.fields("EsmeFielde kalameFarsi").value
cmd2.close
Conn.close
conn=nothing

البته قبل از اینا باید ADODB رو از Website و Add Reference اضافه کنی...
البته من به روش خودم عرض کردم.امیدوارم به دردت بخوره...​

 

[ntier]

فکر کنم از اول گفته شه بهتره!



البته قبل از اینا باید ADODB رو از Website و Add Reference اضافه کنی...
البته من به روش خودم عرض کردم.امیدوارم به دردت بخوره...​

آقا ممنونم ... کارم رو راه انداخت.

ممنونم و موفق باشین

 

[tabeez]

قابل نداشت..